/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / maths / tables / !Tables / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 00 52 f4 20 63 72 | 75 6e 63 68 65 64 20 22 |...R. cr|unched "|
|00000010| 41 44 46 53 3a 3a 49 44 | 45 44 69 73 63 34 2e 24 |ADFS::ID|EDisc4.$|
|00000020| 2e 44 44 45 2e 57 49 50 | 2e 54 61 62 6c 65 73 2e |.DDE.WIP|.Tables.|
|00000030| 32 32 2f 30 33 2f 39 35 | 2e 53 51 55 41 53 48 2e |22/03/95|.SQUASH.|
|00000040| 21 54 61 62 6c 65 73 2e | 21 52 75 6e 49 6d 61 67 |!Tables.|!RunImag|
|00000050| 65 22 0d 00 01 8d c8 99 | 32 36 33 38 37 32 3a f2 |e"......|263872:.|
|00000060| 57 69 6d 70 5f 53 74 61 | 72 74 28 22 54 61 62 6c |Wimp_Sta|rt("Tabl|
|00000070| 65 73 22 2c 37 35 39 38 | 2c 36 33 37 37 29 3a f2 |es",7598|,6377):.|
|00000080| 55 73 65 72 5f 53 65 74 | 49 6e 69 74 69 61 6c 44 |User_Set|InitialD|
|00000090| 61 74 61 3a f2 43 72 65 | 61 74 65 5f 57 69 6e 64 |ata:.Cre|ate_Wind|
|000000a0| 6f 77 73 3a f2 43 72 65 | 61 74 65 5f 4d 65 6e 75 |ows:.Cre|ate_Menu|
|000000b0| 73 3a c8 99 32 36 33 38 | 37 34 3a f2 57 69 6d 70 |s:..2638|74:.Wimp|
|000000c0| 5f 57 61 69 74 46 6f 72 | 45 76 65 6e 74 3a f2 57 |_WaitFor|Event:.W|
|000000d0| 69 6d 70 5f 43 6c 6f 73 | 65 44 6f 77 6e 3a e0 0d |imp_Clos|eDown:..|
|000000e0| 00 0b 1e dd f2 55 73 65 | 72 5f 53 65 74 49 6e 69 |.....Use|r_SetIni|
|000000f0| 74 69 61 6c 44 61 74 61 | 3a ee 85 f2 65 0d 00 0d |tialData|:...e...|
|00000100| 25 e7 a4 47 65 74 5f 50 | 61 72 61 6d 65 74 65 72 |%..Get_P|arameter|
|00000110| 73 3d 22 32 22 20 69 6e | 74 65 72 66 61 63 65 25 |s="2" in|terface%|
|00000120| 3d b9 0d 00 0e ab 6d 61 | 69 6e 35 25 3d b9 3a 6d |=.....ma|in5%=.:m|
|00000130| 61 69 6e 31 30 25 3d a3 | 3a 72 61 6e 64 25 3d 31 |ain10%=.|:rand%=1|
|00000140| 3a 66 69 6e 69 73 68 25 | 3d a3 3a 6f 70 65 72 61 |:finish%|=.:opera|
|00000150| 74 6f 72 24 3d 22 d7 22 | 3a 6f 70 24 3d 22 2a 22 |tor$="."|:op$="*"|
|00000160| 3a 6e 65 67 25 3d a3 3a | 6c 6f 67 67 65 64 6f 6e |:neg%=.:|loggedon|
|00000170| 25 3d a3 3a 57 69 64 74 | 68 25 3d 37 37 3a 70 61 |%=.:Widt|h%=77:pa|
|00000180| 73 73 24 3d 22 22 3a 6e | 61 6d 65 5f 6f 6e 25 3d |ss$="":n|ame_on%=|
|00000190| a3 3a 67 72 69 64 5f 73 | 69 7a 65 24 3d 22 35 20 |.:grid_s|ize$="5 |
|000001a0| 58 20 35 20 67 72 69 64 | 73 69 7a 65 22 3a 64 65 |X 5 grid|size":de|
|000001b0| 6c 5f 6c 6f 67 25 3d a3 | 3a 69 5f 62 75 6d 70 25 |l_log%=.|:i_bump%|
|000001c0| 3d 31 3a 6a 5f 62 75 6d | 70 25 3d 31 30 0d 00 12 |=1:j_bum|p%=10...|
|000001d0| dc 64 69 66 66 69 63 75 | 6c 74 79 24 3d 22 50 61 |.difficu|lty$="Pa|
|000001e0| 72 74 69 61 6c 6c 79 20 | 52 61 6e 64 6f 6d 22 3a |rtially |Random":|
|000001f0| 6f 70 65 72 61 74 69 6f | 6e 24 3d 22 4d 75 6c 74 |operatio|n$="Mult|
|00000200| 69 70 6c 69 63 61 74 69 | 6f 6e 22 3a 64 69 72 65 |iplicati|on":dire|
|00000210| 63 74 65 64 24 3d 22 4e | 6f 20 4e 65 67 61 74 69 |cted$="N|o Negati|
|00000220| 76 65 20 4e 75 6d 62 65 | 72 73 22 3a 66 69 6e 25 |ve Numbe|rs":fin%|
|00000230| 3d b9 3a 57 69 64 74 68 | 25 3d 37 37 3a de 72 61 |=.:Width|%=77:.ra|
|00000240| 6e 64 25 28 33 31 29 2c | 61 6e 73 24 28 31 30 30 |nd%(31),|ans$(100|
|00000250| 29 2c 6c 6f 67 24 28 31 | 30 30 29 2c 63 61 6c 63 |),log$(1|00),calc|
|00000260| 24 28 31 30 30 29 3a de | 75 6e 73 63 72 61 6d 62 |$(100):.|unscramb|
|00000270| 6c 65 64 24 28 34 30 30 | 29 2c 6c 6f 67 66 69 6c |led$(400|),logfil|
|00000280| 65 25 20 33 32 2a 31 30 | 32 34 3a 66 69 6c 65 25 |e% 32*10|24:file%|
|00000290| 3d 8e 22 3c 44 61 74 61 | 24 44 69 72 3e 2e 50 61 |=."<Data|$Dir>.Pa|
|000002a0| 73 73 57 6f 72 64 22 3a | f5 0d 00 19 53 e8 23 66 |ssWord":|....S.#f|
|000002b0| 69 6c 65 25 2c 70 77 24 | 3a 70 61 73 73 24 3d 70 |ile%,pw$|:pass$=p|
|000002c0| 61 73 73 24 2b bd 28 97 | 28 70 77 24 29 2b 34 33 |ass$+.(.|(pw$)+43|
|000002d0| 29 3a fd 70 77 24 3d 22 | 5d 22 3a 70 61 73 73 24 |):.pw$="|]":pass$|
|000002e0| 3d c0 70 61 73 73 24 29 | 3a d9 23 66 69 6c 65 25 |=.pass$)|:.#file%|
|000002f0| 3a f2 6f 70 65 6e 5f 6c | 6f 67 3a e1 0d 00 22 df |:.open_l|og:...".|
|00000300| dd f2 43 72 65 61 74 65 | 5f 57 69 6e 64 6f 77 73 |..Create|_Windows|
|00000310| 3a 4d 61 69 6e 31 30 5f | 57 69 6e 64 6f 77 25 3d |:Main10_|Window%=|
|00000320| a4 57 69 6d 70 5f 57 69 | 6e 64 6f 77 4c 6f 61 64 |.Wimp_Wi|ndowLoad|
|00000330| 28 22 4d 61 69 6e 31 30 | 22 29 3a 49 6e 66 6f 5f |("Main10|"):Info_|
|00000340| 57 69 6e 64 6f 77 25 3d | a4 57 69 6d 70 5f 57 69 |Window%=|.Wimp_Wi|
|00000350| 6e 64 6f 77 4c 6f 61 64 | 28 22 49 6e 66 6f 22 29 |ndowLoad|("Info")|
|00000360| 3a 4d 61 69 6e 35 5f 57 | 69 6e 64 6f 77 25 3d a4 |:Main5_W|indow%=.|
|00000370| 57 69 6d 70 5f 57 69 6e | 64 6f 77 4c 6f 61 64 28 |Wimp_Win|dowLoad(|
|00000380| 22 4d 61 69 6e 35 22 29 | 3a 4f 70 74 69 6f 6e 5f |"Main5")|:Option_|
|00000390| 57 69 6e 64 6f 77 25 3d | a4 57 69 6d 70 5f 57 69 |Window%=|.Wimp_Wi|
|000003a0| 6e 64 6f 77 4c 6f 61 64 | 28 22 6f 70 74 69 6f 6e |ndowLoad|("option|
|000003b0| 73 22 29 3a 4c 6f 67 6f | 6e 5f 57 69 6e 64 6f 77 |s"):Logo|n_Window|
|000003c0| 25 3d a4 57 69 6d 70 5f | 57 69 6e 64 6f 77 4c 6f |%=.Wimp_|WindowLo|
|000003d0| 61 64 28 22 4c 6f 67 6f | 6e 22 29 0d 00 28 cf 54 |ad("Logo|n")..(.T|
|000003e0| 65 61 63 68 5f 57 69 6e | 64 6f 77 25 3d a4 57 69 |each_Win|dow%=.Wi|
|000003f0| 6d 70 5f 57 69 6e 64 6f | 77 4c 6f 61 64 28 22 54 |mp_Windo|wLoad("T|
|00000400| 5f 4c 6f 67 22 29 3a 44 | 65 6c 5f 57 69 6e 64 6f |_Log"):D|el_Windo|
|00000410| 77 25 3d a4 57 69 6d 70 | 5f 57 69 6e 64 6f 77 4c |w%=.Wimp|_WindowL|
|00000420| 6f 61 64 28 22 64 65 6c | 5f 4c 6f 67 22 29 3a 53 |oad("del|_Log"):S|
|00000430| 65 74 5f 57 69 6e 64 6f | 77 25 3d a4 57 69 6d 70 |et_Windo|w%=.Wimp|
|00000440| 5f 57 69 6e 64 6f 77 4c | 6f 61 64 28 22 50 61 73 |_WindowL|oad("Pas|
|00000450| 73 77 6f 72 64 22 29 3a | 44 69 73 70 6c 61 79 5f |sword"):|Display_|
|00000460| 57 69 6e 64 6f 77 25 3d | a4 57 69 6d 70 5f 57 69 |Window%=|.Wimp_Wi|
|00000470| 6e 64 6f 77 4c 6f 61 64 | 28 22 6c 6f 67 5f 64 69 |ndowLoad|("log_di|
|00000480| 73 70 22 29 3a 53 61 76 | 65 5f 57 69 6e 64 6f 77 |sp"):Sav|e_Window|
|00000490| 25 3d a4 57 69 6d 70 5f | 57 69 6e 64 6f 77 4c 6f |%=.Wimp_|WindowLo|
|000004a0| 61 64 28 22 53 61 76 65 | 22 29 0d 00 2d 4a 73 77 |ad("Save|")..-Jsw|
|000004b0| 25 3d a4 57 69 6d 70 5f | 57 69 6e 64 6f 77 4c 6f |%=.Wimp_|WindowLo|
|000004c0| 61 64 28 22 53 68 61 72 | 65 77 61 72 65 22 29 3a |ad("Shar|eware"):|
|000004d0| 42 61 72 5f 49 63 6f 6e | 25 3d a4 57 69 6d 70 5f |Bar_Icon|%=.Wimp_|
|000004e0| 49 63 6f 6e 42 61 72 28 | 22 21 54 61 62 6c 65 73 |IconBar(|"!Tables|
|000004f0| 22 29 3a e1 0d 00 31 24 | dd a4 45 76 65 6e 74 5f |"):...1$|..Event_|
|00000500| 53 61 76 65 28 77 69 6e | 64 6f 77 25 29 3a c8 8e |Save(win|dow%):..|
|00000510| 77 69 6e 64 6f 77 25 ca | 0d 00 33 14 c9 53 61 76 |window%.|..3..Sav|
|00000520| 65 5f 57 69 6e 64 6f 77 | 25 3a 3d b9 0d 00 34 08 |e_Window|%:=...4.|
|00000530| 7f 3a 3d a3 0d 00 35 05 | cb 0d 00 37 25 dd a4 45 |.:=...5.|...7%..E|
|00000540| 76 65 6e 74 5f 53 70 72 | 69 74 65 73 28 77 69 6e |vent_Spr|ites(win|
|00000550| 64 6f 77 25 29 3d 73 70 | 72 69 74 65 73 25 0d 00 |dow%)=sp|rites%..|
|00000560| 39 d3 dd f2 43 72 65 61 | 74 65 5f 4d 65 6e 75 73 |9...Crea|te_Menus|
|00000570| 3a 61 24 3d 22 54 61 62 | 6c 65 73 5c 49 6e 66 6f |:a$="Tab|les\Info|
|00000580| 3e 49 6e 66 6f 5f 57 69 | 6e 64 6f 77 25 5c 48 65 |>Info_Wi|ndow%\He|
|00000590| 6c 70 5c 53 65 74 20 50 | 61 73 73 57 6f 72 64 3e |lp\Set P|assWord>|
|000005a0| 53 65 74 5f 22 3a 62 24 | 3d 22 57 69 6e 64 6f 77 |Set_":b$|="Window|
|000005b0| 25 5c 56 69 65 77 20 4c | 6f 67 3e 54 65 61 63 68 |%\View L|og>Teach|
|000005c0| 5f 57 69 6e 64 6f 77 25 | 5c 44 65 6c 65 74 65 20 |_Window%|\Delete |
|000005d0| 4c 6f 67 3e 44 65 6c 5f | 57 69 6e 64 6f 77 25 5c |Log>Del_|Window%\|
|000005e0| 51 75 69 74 22 3a 62 6d | 24 3d 61 24 2b 62 24 3a |Quit":bm|$=a$+b$:|
|000005f0| 42 61 72 5f 4d 65 6e 75 | 25 3d a4 57 69 6d 70 5f |Bar_Menu|%=.Wimp_|
|00000600| 4d 65 6e 75 43 72 65 61 | 74 65 28 62 6d 24 29 3a |MenuCrea|te(bm$):|
|00000610| 6c 6f 67 5f 6d 65 6e 75 | 24 3d 22 4c 6f 67 5c 53 |log_menu|$="Log\S|
|00000620| 61 76 65 3e 53 61 76 65 | 5f 57 69 6e 64 6f 77 25 |ave>Save|_Window%|
|00000630| 22 0d 00 3f 69 4c 6f 67 | 5f 4d 65 6e 75 25 3d a4 |"..?iLog|_Menu%=.|
|00000640| 57 69 6d 70 5f 4d 65 6e | 75 43 72 65 61 74 65 28 |Wimp_Men|uCreate(|
|00000650| 6c 6f 67 5f 6d 65 6e 75 | 24 29 3a f2 57 69 6d 70 |log_menu|$):.Wimp|
|00000660| 5f 4d 65 6e 75 44 6f 74 | 74 65 64 4c 69 6e 65 28 |_MenuDot|tedLine(|
|00000670| 42 61 72 5f 4d 65 6e 75 | 25 2c 31 29 3a f2 57 69 |Bar_Menu|%,1):.Wi|
|00000680| 6d 70 5f 57 69 6e 64 6f | 77 42 72 69 6e 67 54 6f |mp_Windo|wBringTo|
|00000690| 54 6f 70 28 73 77 25 29 | 3a e1 0d 00 44 24 dd a4 |Top(sw%)|:...D$..|
|000006a0| 45 76 65 6e 74 5f 4d 65 | 6e 75 28 77 69 6e 64 6f |Event_Me|nu(windo|
|000006b0| 77 25 29 3a c8 8e 77 69 | 6e 64 6f 77 25 ca 0d 00 |w%):..wi|ndow%...|
|000006c0| 46 1b c9 42 61 72 5f 57 | 69 6e 64 6f 77 25 3a 3d |F..Bar_W|indow%:=|
|000006d0| 42 61 72 5f 4d 65 6e 75 | 25 0d 00 47 1f c9 44 69 |Bar_Menu|%..G..Di|
|000006e0| 73 70 6c 61 79 5f 57 69 | 6e 64 6f 77 25 3a 3d 4c |splay_Wi|ndow%:=L|
|000006f0| 6f 67 5f 4d 65 6e 75 25 | 0d 00 48 08 7f 3a 3d a3 |og_Menu%|..H..:=.|
|00000700| 0d 00 49 05 cb 0d 00 4b | 34 dd f2 45 76 65 6e 74 |..I....K|4..Event|
|00000710| 5f 57 69 6e 64 6f 77 43 | 6c 6f 73 65 28 77 69 6e |_WindowC|lose(win|
|00000720| 64 6f 77 25 2c 62 75 74 | 74 6f 6e 73 25 29 3a c8 |dow%,but|tons%):.|
|00000730| 8e 77 69 6e 64 6f 77 25 | ca 0d 00 4d 07 cb 3a e1 |.window%|...M..:.|
|00000740| 0d 00 50 38 dd f2 45 76 | 65 6e 74 5f 44 72 61 77 |..P8..Ev|ent_Draw|
|00000750| 28 77 69 6e 64 6f 77 25 | 2c 78 5f 6f 72 69 67 69 |(window%|,x_origi|
|00000760| 6e 25 2c 79 5f 6f 72 69 | 67 69 6e 25 29 3a c8 8e |n%,y_ori|gin%):..|
|00000770| 77 69 6e 64 6f 77 25 ca | 0d 00 52 2d c9 44 69 73 |window%.|..R-.Dis|
|00000780| 70 6c 61 79 5f 57 69 6e | 64 6f 77 25 3a f2 45 76 |play_Win|dow%:.Ev|
|00000790| 65 6e 74 5f 55 73 65 72 | 44 72 61 77 4c 6f 67 57 |ent_User|DrawLogW|
|000007a0| 69 6e 64 6f 77 0d 00 53 | 07 cb 3a e1 0d 00 56 79 |indow..S|..:...Vy|
|000007b0| dd f2 45 76 65 6e 74 5f | 55 73 65 72 44 72 61 77 |..Event_|UserDraw|
|000007c0| 4c 6f 67 57 69 6e 64 6f | 77 3a ea 69 25 2c 78 25 |LogWindo|w:.i%,x%|
|000007d0| 2c 79 25 2c 68 25 3a 68 | 25 3d 33 32 3a 79 25 3d |,y%,h%:h|%=32:y%=|
|000007e0| 79 5f 6f 72 69 67 69 6e | 25 3a e3 69 25 3d 30 b8 |y_origin|%:.i%=0.|
|000007f0| 4e 6f 4f 66 4c 69 6e 65 | 73 25 2d 31 3a e7 a7 75 |NoOfLine|s%-1:..u|
|00000800| 6e 73 63 72 61 6d 62 6c | 65 64 24 28 69 25 29 2c |nscrambl|ed$(i%),|
|00000810| 22 45 52 52 4f 52 22 29 | 3e 30 c8 99 32 36 32 33 |"ERROR")|>0..2623|
|00000820| 37 34 2c 31 31 0d 00 5c | 3a ec 78 5f 6f 72 69 67 |74,11..\|:.x_orig|
|00000830| 69 6e 25 2c 79 25 3a f1 | 3b 75 6e 73 63 72 61 6d |in%,y%:.|;unscram|
|00000840| 62 6c 65 64 24 28 69 25 | 29 3a c8 99 32 36 32 33 |bled$(i%|):..2623|
|00000850| 37 34 2c 37 3a 79 25 2d | 3d 68 25 3a ed 3a e1 0d |74,7:y%-|=h%:.:..|
|00000860| 00 62 3e dd f2 45 76 65 | 6e 74 5f 4d 6f 75 73 65 |.b>..Eve|nt_Mouse|
|00000870| 43 6c 69 63 6b 28 77 69 | 6e 64 6f 77 25 2c 69 63 |Click(wi|ndow%,ic|
|00000880| 6f 6e 25 2c 62 75 74 74 | 6f 6e 25 2c 78 25 2c 79 |on%,butt|on%,x%,y|
|00000890| 25 29 3a c8 8e 77 69 6e | 64 6f 77 25 ca 0d 00 64 |%):..win|dow%...d|
|000008a0| 1f c9 42 61 72 5f 57 69 | 6e 64 6f 77 25 3a f2 55 |..Bar_Wi|ndow%:.U|
|000008b0| 73 65 72 5f 4d 6f 75 73 | 65 42 61 72 0d 00 65 35 |ser_Mous|eBar..e5|
|000008c0| c9 4d 61 69 6e 31 30 5f | 57 69 6e 64 6f 77 25 3a |.Main10_|Window%:|
|000008d0| f2 55 73 65 72 5f 4d 6f | 75 73 65 4d 61 69 6e 31 |.User_Mo|useMain1|
|000008e0| 30 28 20 62 75 74 74 6f | 6e 25 2c 69 63 6f 6e 25 |0( butto|n%,icon%|
|000008f0| 29 0d 00 66 33 c9 4d 61 | 69 6e 35 5f 57 69 6e 64 |)..f3.Ma|in5_Wind|
|00000900| 6f 77 25 3a f2 55 73 65 | 72 5f 4d 6f 75 73 65 4d |ow%:.Use|r_MouseM|
|00000910| 61 69 6e 35 28 20 62 75 | 74 74 6f 6e 25 2c 69 63 |ain5( bu|tton%,ic|
|00000920| 6f 6e 25 29 0d 00 67 35 | c9 4f 70 74 69 6f 6e 5f |on%)..g5|.Option_|
|00000930| 57 69 6e 64 6f 77 25 3a | f2 55 73 65 72 5f 4d 6f |Window%:|.User_Mo|
|00000940| 75 73 65 4f 70 74 69 6f | 6e 28 20 62 75 74 74 6f |useOptio|n( butto|
|00000950| 6e 25 2c 69 63 6f 6e 25 | 29 0d 00 68 33 c9 4c 6f |n%,icon%|)..h3.Lo|
|00000960| 67 6f 6e 5f 57 69 6e 64 | 6f 77 25 3a f2 55 73 65 |gon_Wind|ow%:.Use|
|00000970| 72 5f 4d 6f 75 73 65 4c | 6f 67 6f 6e 28 20 62 75 |r_MouseL|ogon( bu|
|00000980| 74 74 6f 6e 25 2c 69 63 | 6f 6e 25 29 0d 00 69 1f |tton%,ic|on%)..i.|
|00000990| c9 73 77 25 3a f2 57 69 | 6d 70 5f 57 69 6e 64 6f |.sw%:.Wi|mp_Windo|
|000009a0| 77 43 6c 6f 73 65 28 73 | 77 25 29 0d 00 6a 07 cb |wClose(s|w%)..j..|
|000009b0| 3a e1 0d 00 6d 21 dd f2 | 55 73 65 72 5f 4d 6f 75 |:...m!..|User_Mou|
|000009c0| 73 65 42 61 72 3a e7 6c | 6f 67 67 65 64 6f 6e 25 |seBar:.l|oggedon%|
|000009d0| 3d b9 8c 0d 00 6f 4e f2 | 57 69 6d 70 5f 4d 65 6e |=....oN.|Wimp_Men|
|000009e0| 75 45 6e 61 62 6c 65 28 | 42 61 72 5f 4d 65 6e 75 |uEnable(|Bar_Menu|
|000009f0| 25 2c 32 29 3a e7 6d 61 | 69 6e 35 25 f2 57 69 6d |%,2):.ma|in5%.Wim|
|00000a00| 70 5f 57 69 6e 64 6f 77 | 42 72 69 6e 67 54 6f 54 |p_Window|BringToT|
|00000a10| 6f 70 28 4d 61 69 6e 35 | 5f 57 69 6e 64 6f 77 25 |op(Main5|_Window%|
|00000a20| 29 0d 00 71 32 e7 6d 61 | 69 6e 31 30 25 f2 57 69 |)..q2.ma|in10%.Wi|
|00000a30| 6d 70 5f 57 69 6e 64 6f | 77 42 72 69 6e 67 54 6f |mp_Windo|wBringTo|
|00000a40| 54 6f 70 28 4d 61 69 6e | 31 30 5f 57 69 6e 64 6f |Top(Main|10_Windo|
|00000a50| 77 25 29 0d 00 72 24 f2 | 57 69 6d 70 5f 57 69 6e |w%)..r$.|Wimp_Win|
|00000a60| 64 6f 77 4f 70 65 6e 28 | 4f 70 74 69 6f 6e 5f 57 |dowOpen(|Option_W|
|00000a70| 69 6e 64 6f 77 25 29 0d | 00 73 4e cc 3a f2 57 69 |indow%).|.sN.:.Wi|
|00000a80| 6d 70 5f 57 69 6e 64 6f | 77 42 72 69 6e 67 54 6f |mp_Windo|wBringTo|
|00000a90| 54 6f 70 28 4c 6f 67 6f | 6e 5f 57 69 6e 64 6f 77 |Top(Logo|n_Window|
|00000aa0| 25 29 3a f2 57 69 6d 70 | 5f 49 63 6f 6e 43 61 72 |%):.Wimp|_IconCar|
|00000ab0| 65 74 28 4c 6f 67 6f 6e | 5f 57 69 6e 64 6f 77 25 |et(Logon|_Window%|
|00000ac0| 2c 31 2c 30 29 0d 00 76 | 1e cd 3a f2 57 69 6d 70 |,1,0)..v|..:.Wimp|
|00000ad0| 5f 57 69 6e 64 6f 77 43 | 6c 6f 73 65 28 73 77 25 |_WindowC|lose(sw%|
|00000ae0| 29 3a e1 0d 00 7a 2e dd | f2 55 73 65 72 5f 4d 6f |):...z..|.User_Mo|
|00000af0| 75 73 65 4c 6f 67 6f 6e | 28 20 62 75 74 74 6f 6e |useLogon|( button|
|00000b00| 25 2c 69 63 6f 6e 25 29 | 3a c8 8e 69 63 6f 6e 25 |%,icon%)|:..icon%|
|00000b10| ca 0d 00 7c 39 c9 30 3a | 6e 61 6d 65 24 3d a4 57 |...|9.0:|name$=.W|
|00000b20| 69 6d 70 5f 49 63 6f 6e | 54 65 78 74 28 4c 6f 67 |imp_Icon|Text(Log|
|00000b30| 6f 6e 5f 57 69 6e 64 6f | 77 25 2c 31 29 3a e7 a9 |on_Windo|w%,1):..|
|00000b40| 28 6e 61 6d 65 24 29 3e | 30 8c 0d 00 7f 79 6c 6f |(name$)>|0....ylo|
|00000b50| 67 67 65 64 6f 6e 25 3d | b9 3a 6c 6f 67 63 6f 75 |ggedon%=|.:logcou|
|00000b60| 6e 74 25 3d 30 3a 63 25 | 3d 30 3a 6e 61 6d 65 5f |nt%=0:c%|=0:name_|
|00000b70| 6f 6e 25 3d a3 3a f2 57 | 69 6d 70 5f 57 69 6e 64 |on%=.:.W|imp_Wind|
|00000b80| 6f 77 43 6c 6f 73 65 28 | 4c 6f 67 6f 6e 5f 57 69 |owClose(|Logon_Wi|
|00000b90| 6e 64 6f 77 25 29 3a e7 | 6d 61 69 6e 35 25 f2 57 |ndow%):.|main5%.W|
|00000ba0| 69 6d 70 5f 57 69 6e 64 | 6f 77 42 72 69 6e 67 54 |imp_Wind|owBringT|
|00000bb0| 6f 54 6f 70 28 4d 61 69 | 6e 35 5f 57 69 6e 64 6f |oTop(Mai|n5_Windo|
|00000bc0| 77 25 29 0d 00 82 32 e7 | 6d 61 69 6e 31 30 25 f2 |w%)...2.|main10%.|
|00000bd0| 57 69 6d 70 5f 57 69 6e | 64 6f 77 42 72 69 6e 67 |Wimp_Win|dowBring|
|00000be0| 54 6f 54 6f 70 28 4d 61 | 69 6e 31 30 5f 57 69 6e |ToTop(Ma|in10_Win|
|00000bf0| 64 6f 77 25 29 0d 00 83 | 2e f2 57 69 6d 70 5f 57 |dow%)...|..Wimp_W|
|00000c00| 69 6e 64 6f 77 4f 70 65 | 6e 28 4f 70 74 69 6f 6e |indowOpe|n(Option|
|00000c10| 5f 57 69 6e 64 6f 77 25 | 29 3a f2 6f 70 65 6e 5f |_Window%|):.open_|
|00000c20| 6c 6f 67 0d 00 85 05 cd | 0d 00 86 07 cb 3a e1 0d |log.....|.....:..|
|00000c30| 00 89 37 dd f2 55 73 65 | 72 5f 4d 6f 75 73 65 4d |..7..Use|r_MouseM|
|00000c40| 61 69 6e 31 30 28 20 62 | 75 74 74 6f 6e 25 2c 69 |ain10( b|utton%,i|
|00000c50| 63 6f 6e 25 29 3a ea 63 | 6f 75 6e 74 25 3a c8 8e |con%):.c|ount%:..|
|00000c60| 69 63 6f 6e 25 ca 0d 00 | 8c 29 c9 31 32 33 3a f2 |icon%...|.).123:.|
|00000c70| 6c 6f 67 6f 66 66 73 65 | 74 75 70 28 4d 61 69 6e |logoffse|tup(Main|
|00000c80| 31 30 5f 57 69 6e 64 6f | 77 25 2c 31 31 39 29 0d |10_Windo|w%,119).|
|00000c90| 00 8e 34 c9 31 32 32 3a | 66 69 6e 69 73 68 25 3d |..4.122:|finish%=|
|00000ca0| b9 3a f2 66 69 6e 69 73 | 68 65 64 28 4d 61 69 6e |.:.finis|hed(Main|
|00000cb0| 31 30 5f 57 69 6e 64 6f | 77 25 2c 31 32 30 2c 31 |10_Windo|w%,120,1|
|00000cc0| 32 33 29 0d 00 90 16 c9 | 31 32 30 3a e7 6c 6f 67 |23).....|120:.log|
|00000cd0| 67 65 64 6f 6e 25 3d b9 | 8c 0d 00 92 97 63 25 3d |gedon%=.|.....c%=|
|00000ce0| 30 3a f2 57 69 6d 70 5f | 49 63 6f 6e 44 69 73 61 |0:.Wimp_|IconDisa|
|00000cf0| 62 6c 65 28 4d 61 69 6e | 31 30 5f 57 69 6e 64 6f |ble(Main|10_Windo|
|00000d00| 77 25 2c 31 32 33 29 3a | f2 57 69 6d 70 5f 49 63 |w%,123):|.Wimp_Ic|
|00000d10| 6f 6e 44 69 73 61 62 6c | 65 28 4d 61 69 6e 31 30 |onDisabl|e(Main10|
|00000d20| 5f 57 69 6e 64 6f 77 25 | 2c 31 32 30 29 3a f2 57 |_Window%|,120):.W|
|00000d30| 69 6d 70 5f 57 69 6e 64 | 6f 77 43 6c 6f 73 65 28 |imp_Wind|owClose(|
|00000d40| 4f 70 74 69 6f 6e 5f 57 | 69 6e 64 6f 77 25 29 3a |Option_W|indow%):|
|00000d50| e3 69 25 3d 30 b8 32 30 | 3a 72 61 6e 64 25 28 69 |.i%=0.20|:rand%(i|
|00000d60| 25 29 3d 30 3a ed 3a e7 | 72 61 6e 64 25 3d 31 8c |%)=0:.:.|rand%=1.|
|00000d70| 0d 00 98 8b f2 52 61 6e | 64 6f 6d 53 65 6c 65 63 |.....Ran|domSelec|
|00000d80| 74 3a e3 49 25 3d 30 b8 | 39 3a f2 57 69 6d 70 5f |t:.I%=0.|9:.Wimp_|
|00000d90| 49 63 6f 6e 50 75 74 54 | 65 78 74 28 4d 61 69 6e |IconPutT|ext(Main|
|00000da0| 31 30 5f 57 69 6e 64 6f | 77 25 2c 49 25 2b 31 30 |10_Windo|w%,I%+10|
|00000db0| 30 2c c3 28 72 61 6e 64 | 25 28 49 25 2b 31 29 29 |0,.(rand|%(I%+1))|
|00000dc0| 29 3a f2 57 69 6d 70 5f | 49 63 6f 6e 50 75 74 54 |):.Wimp_|IconPutT|
|00000dd0| 65 78 74 28 4d 61 69 6e | 31 30 5f 57 69 6e 64 6f |ext(Main|10_Windo|
|00000de0| 77 25 2c 49 25 2b 31 31 | 30 2c c3 28 72 61 6e 64 |w%,I%+11|0,.(rand|
|00000df0| 25 28 49 25 2b 31 29 29 | 29 3a ed 0d 00 9d 0f cd |%(I%+1))|):......|
|00000e00| 3a e7 72 61 6e 64 25 3d | 32 8c 0d 00 a0 a3 f2 52 |:.rand%=|2......R|
|00000e10| 61 6e 64 6f 6d 53 65 6c | 65 63 74 3a e3 49 25 3d |andomSel|ect:.I%=|
|00000e20| 30 b8 39 3a f2 57 69 6d | 70 5f 49 63 6f 6e 50 75 |0.9:.Wim|p_IconPu|
|00000e30| 74 54 65 78 74 28 4d 61 | 69 6e 31 30 5f 57 69 6e |tText(Ma|in10_Win|
|00000e40| 64 6f 77 25 2c 49 25 2b | 31 30 30 2c c3 28 72 61 |dow%,I%+|100,.(ra|
|00000e50| 6e 64 25 28 49 25 2b 31 | 29 29 29 3a ed 3a f2 52 |nd%(I%+1|))):.:.R|
|00000e60| 61 6e 64 6f 6d 53 65 6c | 65 63 74 3a e3 49 25 3d |andomSel|ect:.I%=|
|00000e70| 30 b8 39 3a f2 57 69 6d | 70 5f 49 63 6f 6e 50 75 |0.9:.Wim|p_IconPu|
|00000e80| 74 54 65 78 74 28 4d 61 | 69 6e 31 30 5f 57 69 6e |tText(Ma|in10_Win|
|00000e90| 64 6f 77 25 2c 49 25 2b | 31 31 30 2c c3 28 72 61 |dow%,I%+|110,.(ra|
|00000ea0| 6e 64 25 28 49 25 2b 31 | 29 29 29 3a ed 0d 00 a8 |nd%(I%+1|))):....|
|00000eb0| 10 cd 3a e7 72 61 6e 64 | 25 3c 3e 33 8c 0d 00 ab |..:.rand|%<>3....|
|00000ec0| 2d f2 67 72 69 64 5f 61 | 6e 73 28 4d 61 69 6e 31 |-.grid_a|ns(Main1|
|00000ed0| 30 5f 57 69 6e 64 6f 77 | 25 2c 31 31 30 2c 31 31 |0_Window|%,110,11|
|00000ee0| 39 2c 31 30 30 2c 31 30 | 39 29 0d 00 ac 0f cd 3a |9,100,10|9).....:|
|00000ef0| e7 72 61 6e 64 25 3d 33 | 8c 0d 00 af 7b e3 49 25 |.rand%=3|....{.I%|
|00000f00| 3d 30 b8 39 3a f2 57 69 | 6d 70 5f 49 63 6f 6e 50 |=0.9:.Wi|mp_IconP|
|00000f10| 75 74 54 65 78 74 28 4d | 61 69 6e 31 30 5f 57 69 |utText(M|ain10_Wi|
|00000f20| 6e 64 6f 77 25 2c 49 25 | 2b 31 30 30 2c c3 28 49 |ndow%,I%|+100,.(I|
|00000f30| 25 2b 69 5f 62 75 6d 70 | 25 29 29 3a f2 57 69 6d |%+i_bump|%)):.Wim|
|00000f40| 70 5f 49 63 6f 6e 50 75 | 74 54 65 78 74 28 4d 61 |p_IconPu|tText(Ma|
|00000f50| 69 6e 31 30 5f 57 69 6e | 64 6f 77 25 2c 49 25 2b |in10_Win|dow%,I%+|
|00000f60| 31 31 30 2c c3 28 49 25 | 2b 69 5f 62 75 6d 70 25 |110,.(I%|+i_bump%|
|00000f70| 29 29 3a ed 0d 00 b3 2f | cd 3a f2 67 72 69 64 5f |)):..../|.:.grid_|
|00000f80| 61 6e 73 28 4d 61 69 6e | 31 30 5f 57 69 6e 64 6f |ans(Main|10_Windo|
|00000f90| 77 25 2c 31 31 30 2c 31 | 31 39 2c 31 30 30 2c 31 |w%,110,1|19,100,1|
|00000fa0| 30 39 29 0d 00 b5 68 cd | 3a f2 57 69 6d 70 5f 49 |09)...h.|:.Wimp_I|
|00000fb0| 63 6f 6e 50 75 74 54 65 | 78 74 28 4d 61 69 6e 31 |conPutTe|xt(Main1|
|00000fc0| 30 5f 57 69 6e 64 6f 77 | 25 2c 31 32 31 2c 6f 70 |0_Window|%,121,op|
|00000fd0| 65 72 61 74 6f 72 24 29 | 3a e3 69 25 3d 30 b8 39 |erator$)|:.i%=0.9|
|00000fe0| 39 3a f2 57 69 6d 70 5f | 49 63 6f 6e 50 75 74 54 |9:.Wimp_|IconPutT|
|00000ff0| 65 78 74 28 4d 61 69 6e | 31 30 5f 57 69 6e 64 6f |ext(Main|10_Windo|
|00001000| 77 25 2c 69 25 2c 22 22 | 29 3a ed 0d 00 b8 2d cd |w%,i%,""|):....-.|
|00001010| 3a d1 3d 30 3a f2 57 69 | 6d 70 5f 49 63 6f 6e 43 |:.=0:.Wi|mp_IconC|
|00001020| 61 72 65 74 28 4d 61 69 | 6e 31 30 5f 57 69 6e 64 |aret(Mai|n10_Wind|
|00001030| 6f 77 25 2c 30 2c 30 29 | 0d 00 bb 3b 7f 3a e3 69 |ow%,0,0)|...;.:.i|
|00001040| 25 3d 69 63 6f 6e 25 b8 | 30 88 2d 31 3a e7 a4 57 |%=icon%.|0.-1:..W|
|00001050| 69 6d 70 5f 49 63 6f 6e | 54 65 78 74 28 4d 61 69 |imp_Icon|Text(Mai|
|00001060| 6e 31 30 5f 57 69 6e 64 | 6f 77 25 2c 69 25 29 3d |n10_Wind|ow%,i%)=|
|00001070| 22 22 8c 0d 00 be 4d f2 | 57 69 6d 70 5f 49 63 6f |""....M.|Wimp_Ico|
|00001080| 6e 43 61 72 65 74 28 4d | 61 69 6e 31 30 5f 57 69 |nCaret(M|ain10_Wi|
|00001090| 6e 64 6f 77 25 2c 69 25 | 2c 30 29 3a e7 69 25 3e |ndow%,i%|,0):.i%>|
|000010a0| 30 f2 55 73 65 72 5f 4b | 65 79 50 72 65 73 73 4d |0.User_K|eyPressM|
|000010b0| 61 69 6e 31 30 28 69 25 | 2d 31 2c 6b 65 79 25 29 |ain10(i%|-1,key%)|
|000010c0| 0d 00 c0 07 cd 3a ed 0d | 00 c2 07 cb 3a e1 0d 00 |.....:..|....:...|
|000010d0| c5 36 dd f2 55 73 65 72 | 5f 4d 6f 75 73 65 4d 61 |.6..User|_MouseMa|
|000010e0| 69 6e 35 28 20 62 75 74 | 74 6f 6e 25 2c 69 63 6f |in5( but|ton%,ico|
|000010f0| 6e 25 29 3a ea 63 6f 75 | 6e 74 25 3a c8 8e 69 63 |n%):.cou|nt%:..ic|
|00001100| 6f 6e 25 ca 0d 00 c8 26 | c9 33 36 3a f2 6c 6f 67 |on%....&|.36:.log|
|00001110| 6f 66 66 73 65 74 75 70 | 28 4d 61 69 6e 35 5f 57 |offsetup|(Main5_W|
|00001120| 69 6e 64 6f 77 25 2c 33 | 34 29 0d 00 ca 30 c9 33 |indow%,3|4)...0.3|
|00001130| 37 3a 66 69 6e 69 73 68 | 25 3d b9 3a f2 66 69 6e |7:finish|%=.:.fin|
|00001140| 69 73 68 65 64 28 4d 61 | 69 6e 35 5f 57 69 6e 64 |ished(Ma|in5_Wind|
|00001150| 6f 77 25 2c 33 36 2c 33 | 35 29 0d 00 cc 15 c9 33 |ow%,36,3|5).....3|
|00001160| 35 3a e7 6c 6f 67 67 65 | 64 6f 6e 25 3d b9 8c 0d |5:.logge|don%=...|
|00001170| 00 ce 93 63 25 3d 30 3a | f2 57 69 6d 70 5f 49 63 |...c%=0:|.Wimp_Ic|
|00001180| 6f 6e 44 69 73 61 62 6c | 65 28 4d 61 69 6e 35 5f |onDisabl|e(Main5_|
|00001190| 57 69 6e 64 6f 77 25 2c | 33 36 29 3a f2 57 69 6d |Window%,|36):.Wim|
|000011a0| 70 5f 49 63 6f 6e 44 69 | 73 61 62 6c 65 28 4d 61 |p_IconDi|sable(Ma|
|000011b0| 69 6e 35 5f 57 69 6e 64 | 6f 77 25 2c 33 35 29 3a |in5_Wind|ow%,35):|
|000011c0| f2 57 69 6d 70 5f 57 69 | 6e 64 6f 77 43 6c 6f 73 |.Wimp_Wi|ndowClos|
|000011d0| 65 28 4f 70 74 69 6f 6e | 5f 57 69 6e 64 6f 77 25 |e(Option|_Window%|
|000011e0| 29 3a e3 69 25 3d 30 b8 | 32 30 3a 72 61 6e 64 25 |):.i%=0.|20:rand%|
|000011f0| 28 69 25 29 3d 30 3a ed | 3a e7 72 61 6e 64 25 3d |(i%)=0:.|:.rand%=|
|00001200| 31 8c 0d 00 d4 b6 f2 52 | 61 6e 64 6f 6d 53 65 6c |1......R|andomSel|
|00001210| 65 63 74 3a e3 49 25 3d | 30 b8 34 3a f2 57 69 6d |ect:.I%=|0.4:.Wim|
|00001220| 70 5f 49 63 6f 6e 50 75 | 74 54 65 78 74 28 4d 61 |p_IconPu|tText(Ma|
|00001230| 69 6e 35 5f 57 69 6e 64 | 6f 77 25 2c 49 25 2b 32 |in5_Wind|ow%,I%+2|
|00001240| 35 2c c3 28 72 61 6e 64 | 25 28 49 25 2b 31 29 29 |5,.(rand|%(I%+1))|
|00001250| 29 3a ed 3a e3 49 25 3d | 30 b8 34 3a f2 57 69 6d |):.:.I%=|0.4:.Wim|
|00001260| 70 5f 49 63 6f 6e 50 75 | 74 54 65 78 74 28 4d 61 |p_IconPu|tText(Ma|
|00001270| 69 6e 35 5f 57 69 6e 64 | 6f 77 25 2c 49 25 2b 33 |in5_Wind|ow%,I%+3|
|00001280| 30 2c c3 28 72 61 6e 64 | 25 28 49 25 2b 31 29 29 |0,.(rand|%(I%+1))|
|00001290| 29 3a ed 3a f2 67 72 69 | 64 5f 61 6e 73 28 4d 61 |):.:.gri|d_ans(Ma|
|000012a0| 69 6e 35 5f 57 69 6e 64 | 6f 77 25 2c 33 30 2c 33 |in5_Wind|ow%,30,3|
|000012b0| 34 2c 32 35 2c 32 39 29 | 0d 00 dc 0f cd 3a e7 72 |4,25,29)|.....:.r|
|000012c0| 61 6e 64 25 3d 32 8c 0d | 00 de c6 f2 52 61 6e 64 |and%=2..|....Rand|
|000012d0| 6f 6d 53 65 6c 65 63 74 | 3a e3 49 25 3d 30 b8 34 |omSelect|:.I%=0.4|
|000012e0| 3a f2 57 69 6d 70 5f 49 | 63 6f 6e 50 75 74 54 65 |:.Wimp_I|conPutTe|
|000012f0| 78 74 28 4d 61 69 6e 35 | 5f 57 69 6e 64 6f 77 25 |xt(Main5|_Window%|
|00001300| 2c 49 25 2b 32 35 2c c3 | 28 72 61 6e 64 25 28 49 |,I%+25,.|(rand%(I|
|00001310| 25 2b 31 29 29 29 3a ed | 3a f2 52 61 6e 64 6f 6d |%+1))):.|:.Random|
|00001320| 53 65 6c 65 63 74 3a e3 | 49 25 3d 35 b8 39 3a f2 |Select:.|I%=5.9:.|
|00001330| 57 69 6d 70 5f 49 63 6f | 6e 50 75 74 54 65 78 74 |Wimp_Ico|nPutText|
|00001340| 28 4d 61 69 6e 35 5f 57 | 69 6e 64 6f 77 25 2c 49 |(Main5_W|indow%,I|
|00001350| 25 2b 32 35 2c c3 28 72 | 61 6e 64 25 28 49 25 2d |%+25,.(r|and%(I%-|
|00001360| 35 2b 31 29 29 29 3a ed | 3a f2 67 72 69 64 5f 61 |5+1))):.|:.grid_a|
|00001370| 6e 73 28 4d 61 69 6e 35 | 5f 57 69 6e 64 6f 77 25 |ns(Main5|_Window%|
|00001380| 2c 33 30 2c 33 34 2c 32 | 35 2c 32 39 29 0d 00 e7 |,30,34,2|5,29)...|
|00001390| 0f cd 3a e7 72 61 6e 64 | 25 3d 33 8c 0d 00 e9 77 |..:.rand|%=3....w|
|000013a0| e3 49 25 3d 30 b8 34 3a | f2 57 69 6d 70 5f 49 63 |.I%=0.4:|.Wimp_Ic|
|000013b0| 6f 6e 50 75 74 54 65 78 | 74 28 4d 61 69 6e 35 5f |onPutTex|t(Main5_|
|000013c0| 57 69 6e 64 6f 77 25 2c | 49 25 2b 32 35 2c c3 28 |Window%,|I%+25,.(|
|000013d0| 49 25 2b 69 5f 62 75 6d | 70 25 29 29 3a f2 57 69 |I%+i_bum|p%)):.Wi|
|000013e0| 6d 70 5f 49 63 6f 6e 50 | 75 74 54 65 78 74 28 4d |mp_IconP|utText(M|
|000013f0| 61 69 6e 35 5f 57 69 6e | 64 6f 77 25 2c 49 25 2b |ain5_Win|dow%,I%+|
|00001400| 33 30 2c c3 28 49 25 2b | 69 5f 62 75 6d 70 25 29 |30,.(I%+|i_bump%)|
|00001410| 29 3a ed 0d 00 ed 2a cd | 3a f2 67 72 69 64 5f 61 |):....*.|:.grid_a|
|00001420| 6e 73 28 4d 61 69 6e 35 | 5f 57 69 6e 64 6f 77 25 |ns(Main5|_Window%|
|00001430| 2c 33 30 2c 33 34 2c 32 | 35 2c 32 39 29 0d 00 ef |,30,34,2|5,29)...|
|00001440| 65 cd 3a f2 57 69 6d 70 | 5f 49 63 6f 6e 50 75 74 |e.:.Wimp|_IconPut|
|00001450| 54 65 78 74 28 4d 61 69 | 6e 35 5f 57 69 6e 64 6f |Text(Mai|n5_Windo|
|00001460| 77 25 2c 33 38 2c 6f 70 | 65 72 61 74 6f 72 24 29 |w%,38,op|erator$)|
|00001470| 3a e3 69 25 3d 30 b8 32 | 34 3a f2 57 69 6d 70 5f |:.i%=0.2|4:.Wimp_|
|00001480| 49 63 6f 6e 50 75 74 54 | 65 78 74 28 4d 61 69 6e |IconPutT|ext(Main|
|00001490| 35 5f 57 69 6e 64 6f 77 | 25 2c 69 25 2c 22 22 29 |5_Window|%,i%,"")|
|000014a0| 3a ed 0d 00 f2 2c cd 3a | d1 3d 30 3a f2 57 69 6d |:....,.:|.=0:.Wim|
|000014b0| 70 5f 49 63 6f 6e 43 61 | 72 65 74 28 4d 61 69 6e |p_IconCa|ret(Main|
|000014c0| 35 5f 57 69 6e 64 6f 77 | 25 2c 30 2c 30 29 0d 00 |5_Window|%,0,0)..|
|000014d0| f5 3a 7f 3a e3 69 25 3d | 69 63 6f 6e 25 b8 30 88 |.:.:.i%=|icon%.0.|
|000014e0| 2d 31 3a e7 a4 57 69 6d | 70 5f 49 63 6f 6e 54 65 |-1:..Wim|p_IconTe|
|000014f0| 78 74 28 4d 61 69 6e 35 | 5f 57 69 6e 64 6f 77 25 |xt(Main5|_Window%|
|00001500| 2c 69 25 29 3d 22 22 8c | 0d 00 f8 4b f2 57 69 6d |,i%)="".|...K.Wim|
|00001510| 70 5f 49 63 6f 6e 43 61 | 72 65 74 28 4d 61 69 6e |p_IconCa|ret(Main|
|00001520| 35 5f 57 69 6e 64 6f 77 | 25 2c 69 25 2c 30 29 3a |5_Window|%,i%,0):|
|00001530| e7 69 25 3e 30 f2 55 73 | 65 72 5f 4b 65 79 50 72 |.i%>0.Us|er_KeyPr|
|00001540| 65 73 73 4d 61 69 6e 35 | 28 69 25 2d 31 2c 6b 65 |essMain5|(i%-1,ke|
|00001550| 79 25 29 0d 00 fa 07 cd | 3a ed 0d 00 fc 07 cb 3a |y%).....|:......:|
|00001560| e1 0d 00 ff dd dd f2 6c | 6f 67 6f 66 66 73 65 74 |.......l|ogoffset|
|00001570| 75 70 28 77 69 6e 64 6f | 77 25 2c 67 72 69 64 73 |up(windo|w%,grids|
|00001580| 69 7a 65 25 29 3a 6c 6f | 67 67 65 64 6f 6e 25 3d |ize%):lo|ggedon%=|
|00001590| a3 3a f2 57 69 6d 70 5f | 49 63 6f 6e 50 75 74 54 |.:.Wimp_|IconPutT|
|000015a0| 65 78 74 28 4c 6f 67 6f | 6e 5f 57 69 6e 64 6f 77 |ext(Logo|n_Window|
|000015b0| 25 2c 31 2c 22 22 29 3a | 6e 61 6d 65 24 3d 22 22 |%,1,""):|name$=""|
|000015c0| 3a 6e 61 6d 65 5f 6f 6e | 25 3d a3 3a e3 69 25 3d |:name_on|%=.:.i%=|
|000015d0| 30 b8 31 30 30 3a 6c 6f | 67 24 28 69 25 29 3d 22 |0.100:lo|g$(i%)="|
|000015e0| 22 3a 63 61 6c 63 24 28 | 69 25 29 3d 22 22 3a ed |":calc$(|i%)="":.|
|000015f0| 3a e3 69 25 3d 30 b8 67 | 72 69 64 73 69 7a 65 25 |:.i%=0.g|ridsize%|
|00001600| 3a f2 57 69 6d 70 5f 49 | 63 6f 6e 50 75 74 54 65 |:.Wimp_I|conPutTe|
|00001610| 78 74 28 77 69 6e 64 6f | 77 25 2c 69 25 2c 22 22 |xt(windo|w%,i%,""|
|00001620| 29 3a ed 3a f2 57 69 6d | 70 5f 57 69 6e 64 6f 77 |):.:.Wim|p_Window|
|00001630| 43 6c 6f 73 65 28 77 69 | 6e 64 6f 77 25 29 0d 01 |Close(wi|ndow%)..|
|00001640| 0a 6a f2 57 69 6d 70 5f | 57 69 6e 64 6f 77 43 6c |.j.Wimp_|WindowCl|
|00001650| 6f 73 65 28 4f 70 74 69 | 6f 6e 5f 57 69 6e 64 6f |ose(Opti|on_Windo|
|00001660| 77 25 29 3a f2 57 69 6d | 70 5f 57 69 6e 64 6f 77 |w%):.Wim|p_Window|
|00001670| 4f 70 65 6e 28 4c 6f 67 | 6f 6e 5f 57 69 6e 64 6f |Open(Log|on_Windo|
|00001680| 77 25 29 3a f2 57 69 6d | 70 5f 49 63 6f 6e 43 61 |w%):.Wim|p_IconCa|
|00001690| 72 65 74 28 4c 6f 67 6f | 6e 5f 57 69 6e 64 6f 77 |ret(Logo|n_Window|
|000016a0| 25 2c 31 2c 30 29 3a e1 | 0d 01 0f 2e dd f2 66 69 |%,1,0):.|......fi|
|000016b0| 6e 69 73 68 65 64 28 77 | 69 6e 64 6f 77 25 2c 69 |nished(w|indow%,i|
|000016c0| 63 6f 6e 31 25 2c 69 63 | 6f 6e 32 25 29 3a e7 6d |con1%,ic|on2%):.m|
|000016d0| 61 69 6e 35 25 8c 0d 01 | 11 40 6c 61 73 74 24 3d |ain5%...|.@last$=|
|000016e0| a4 57 69 6d 70 5f 49 63 | 6f 6e 54 65 78 74 28 77 |.Wimp_Ic|onText(w|
|000016f0| 69 6e 64 6f 77 25 2c 32 | 34 29 3a e7 6c 61 73 74 |indow%,2|4):.last|
|00001700| 24 3c 3e 61 6e 73 24 28 | 32 34 29 80 6c 61 73 74 |$<>ans$(|24).last|
|00001710| 24 3c 3e 22 22 8c 0d 01 | 13 1b f2 6b 65 79 70 72 |$<>""...|...keypr|
|00001720| 65 73 73 28 77 69 6e 64 | 6f 77 25 2c 32 34 29 3a |ess(wind|ow%,24):|
|00001730| e1 0d 01 15 05 cd 0d 01 | 16 42 cc 3a 6c 61 73 74 |........|.B.:last|
|00001740| 24 3d a4 57 69 6d 70 5f | 49 63 6f 6e 54 65 78 74 |$=.Wimp_|IconText|
|00001750| 28 77 69 6e 64 6f 77 25 | 2c 39 39 29 3a e7 6c 61 |(window%|,99):.la|
|00001760| 73 74 24 3c 3e 61 6e 73 | 24 28 39 39 29 80 6c 61 |st$<>ans|$(99).la|
|00001770| 73 74 24 3c 3e 22 22 8c | 0d 01 19 1b f2 6b 65 79 |st$<>"".|.....key|
|00001780| 70 72 65 73 73 28 77 69 | 6e 64 6f 77 25 2c 39 39 |press(wi|ndow%,99|
|00001790| 29 3a e1 0d 01 1b 05 cd | 0d 01 1c a8 cd 3a f2 57 |):......|.....:.W|
|000017a0| 69 6d 70 5f 49 63 6f 6e | 45 6e 61 62 6c 65 28 77 |imp_Icon|Enable(w|
|000017b0| 69 6e 64 6f 77 25 2c 69 | 63 6f 6e 31 25 29 3a f2 |indow%,i|con1%):.|
|000017c0| 57 69 6d 70 5f 49 63 6f | 6e 45 6e 61 62 6c 65 28 |Wimp_Ico|nEnable(|
|000017d0| 77 69 6e 64 6f 77 25 2c | 69 63 6f 6e 32 25 29 3a |window%,|icon2%):|
|000017e0| f2 57 69 6d 70 5f 57 69 | 6e 64 6f 77 4f 70 65 6e |.Wimp_Wi|ndowOpen|
|000017f0| 28 4f 70 74 69 6f 6e 5f | 57 69 6e 64 6f 77 25 29 |(Option_|Window%)|
|00001800| 3a 6c 31 24 3d c3 28 a8 | 28 91 2f 28 31 30 30 2a |:l1$=.(.|(./(100*|
|00001810| 36 30 29 29 29 3a e7 bb | 28 6c 31 24 29 3d 31 8c |60))):..|(l1$)=1.|
|00001820| 6d 69 6e 24 3d 22 20 6d | 69 6e 75 74 65 20 22 8b |min$=" m|inute ".|
|00001830| 6d 69 6e 24 3d 22 20 6d | 69 6e 75 74 65 73 20 22 |min$=" m|inutes "|
|00001840| 0d 01 22 58 6c 32 24 3d | c3 28 a8 28 28 28 91 2f |.."Xl2$=|.(.(((./|
|00001850| 28 31 30 30 2a 36 30 29 | 29 2d 28 a8 28 91 2f 28 |(100*60)|)-(.(./(|
|00001860| 31 30 30 2a 36 30 29 29 | 29 29 2a 36 30 29 29 3a |100*60))|))*60)):|
|00001870| e7 bb 28 6c 32 24 29 3d | 31 8c 73 65 63 24 3d 22 |..(l2$)=|1.sec$="|
|00001880| 20 73 65 63 6f 6e 64 22 | 8b 73 65 63 24 3d 22 20 | second"|.sec$=" |
|00001890| 73 65 63 6f 6e 64 73 22 | 0d 01 24 5e 6c 6f 67 5f |seconds"|..$^log_|
|000018a0| 74 69 6d 65 24 3d 6c 31 | 24 2b 6d 69 6e 24 2b 6c |time$=l1|$+min$+l|
|000018b0| 32 24 2b 73 65 63 24 3a | f2 73 61 76 65 6c 6f 67 |2$+sec$:|.savelog|
|000018c0| 3a 63 25 3d 30 3a e3 69 | 25 3d 30 b8 31 30 30 3a |:c%=0:.i|%=0.100:|
|000018d0| 6c 6f 67 24 28 69 25 29 | 3d 22 22 3a 63 61 6c 63 |log$(i%)|="":calc|
|000018e0| 24 28 69 25 29 3d 22 22 | 3a ed 3a 66 69 6e 69 73 |$(i%)=""|:.:finis|
|000018f0| 68 25 3d a3 3a e1 0d 01 | 2c 2f dd f2 55 73 65 72 |h%=.:...|,/..User|
|00001900| 5f 4d 6f 75 73 65 4f 70 | 74 69 6f 6e 28 20 62 75 |_MouseOp|tion( bu|
|00001910| 74 74 6f 6e 25 2c 69 63 | 6f 6e 25 29 3a c8 8e 69 |tton%,ic|on%):..i|
|00001920| 63 6f 6e 25 ca 0d 01 2e | 77 c9 37 3a 6d 61 69 6e |con%....|w.7:main|
|00001930| 35 25 3d b9 3a 6d 61 69 | 6e 31 30 25 3d a3 3a 67 |5%=.:mai|n10%=.:g|
|00001940| 72 69 64 5f 73 69 7a 65 | 24 3d 22 35 20 58 20 35 |rid_size|$="5 X 5|
|00001950| 20 67 72 69 64 73 69 7a | 65 22 3a f2 57 69 6d 70 | gridsiz|e":.Wimp|
|00001960| 5f 57 69 6e 64 6f 77 43 | 6c 6f 73 65 28 4d 61 69 |_WindowC|lose(Mai|
|00001970| 6e 31 30 5f 57 69 6e 64 | 6f 77 25 29 3a f2 57 69 |n10_Wind|ow%):.Wi|
|00001980| 6d 70 5f 57 69 6e 64 6f | 77 4f 70 65 6e 28 4d 61 |mp_Windo|wOpen(Ma|
|00001990| 69 6e 35 5f 57 69 6e 64 | 6f 77 25 29 0d 01 32 79 |in5_Wind|ow%)..2y|
|000019a0| c9 39 3a 6d 61 69 6e 31 | 30 25 3d b9 3a 6d 61 69 |.9:main1|0%=.:mai|
|000019b0| 6e 35 25 3d a3 3a 67 72 | 69 64 5f 73 69 7a 65 24 |n5%=.:gr|id_size$|
|000019c0| 3d 22 31 30 20 58 20 31 | 30 20 67 72 69 64 73 69 |="10 X 1|0 gridsi|
|000019d0| 7a 65 22 3a f2 57 69 6d | 70 5f 57 69 6e 64 6f 77 |ze":.Wim|p_Window|
|000019e0| 4f 70 65 6e 28 4d 61 69 | 6e 31 30 5f 57 69 6e 64 |Open(Mai|n10_Wind|
|000019f0| 6f 77 25 29 3a f2 57 69 | 6d 70 5f 57 69 6e 64 6f |ow%):.Wi|mp_Windo|
|00001a00| 77 43 6c 6f 73 65 28 4d | 61 69 6e 35 5f 57 69 6e |wClose(M|ain5_Win|
|00001a10| 64 6f 77 25 29 0d 01 36 | 2d c9 35 3a 72 61 6e 64 |dow%)..6|-.5:rand|
|00001a20| 25 3d 31 3a 64 69 66 66 | 69 63 75 6c 74 79 24 3d |%=1:diff|iculty$=|
|00001a30| 22 50 61 72 74 69 61 6c | 6c 79 20 52 61 6e 64 6f |"Partial|ly Rando|
|00001a40| 6d 22 0d 01 37 29 c9 36 | 3a 72 61 6e 64 25 3d 32 |m"..7).6|:rand%=2|
|00001a50| 3a 64 69 66 66 69 63 75 | 6c 74 79 24 3d 22 46 75 |:difficu|lty$="Fu|
|00001a60| 6c 6c 79 20 52 61 6e 64 | 6f 6d 22 0d 01 38 2a c9 |lly Rand|om"..8*.|
|00001a70| 34 3a 72 61 6e 64 25 3d | 33 3a 64 69 66 66 69 63 |4:rand%=|3:diffic|
|00001a80| 75 6c 74 79 24 3d 22 46 | 75 6c 6c 79 20 4f 72 64 |ulty$="F|ully Ord|
|00001a90| 65 72 65 64 22 0d 01 39 | 39 c9 31 33 3a 6f 70 65 |ered"..9|9.13:ope|
|00001aa0| 72 61 74 6f 72 24 3d 22 | d7 22 3a 6f 70 24 3d 22 |rator$="|.":op$="|
|00001ab0| 2a 22 3a 6f 70 65 72 61 | 74 69 6f 6e 24 3d 22 4d |*":opera|tion$="M|
|00001ac0| 75 6c 74 69 70 6c 69 63 | 61 74 69 6f 6e 22 0d 01 |ultiplic|ation"..|
|00001ad0| 3a 33 c9 31 34 3a 6f 70 | 65 72 61 74 6f 72 24 3d |:3.14:op|erator$=|
|00001ae0| 22 2b 22 3a 6f 70 24 3d | 22 2b 22 3a 6f 70 65 72 |"+":op$=|"+":oper|
|00001af0| 61 74 69 6f 6e 24 3d 22 | 41 64 64 69 74 69 6f 6e |ation$="|Addition|
|00001b00| 22 0d 01 3b 36 c9 31 35 | 3a 6f 70 65 72 61 74 6f |"..;6.15|:operato|
|00001b10| 72 24 3d 22 2d 22 3a 6f | 70 24 3d 22 2d 22 3a 6f |r$="-":o|p$="-":o|
|00001b20| 70 65 72 61 74 69 6f 6e | 24 3d 22 53 75 62 74 72 |peration|$="Subtr|
|00001b30| 61 63 74 69 6f 6e 22 0d | 01 3c 10 c9 31 36 3a e7 |action".|.<..16:.|
|00001b40| 6e 65 67 25 3d a3 8c 0d | 01 3e 63 6e 65 67 25 3d |neg%=...|.>cneg%=|
|00001b50| b9 3a 64 69 72 65 63 74 | 65 64 24 3d 22 4e 65 67 |.:direct|ed$="Neg|
|00001b60| 61 74 69 76 65 20 4e 75 | 6d 62 65 72 73 20 49 6e |ative Nu|mbers In|
|00001b70| 63 6c 75 64 65 64 22 3a | f2 57 69 6d 70 5f 49 63 |cluded":|.Wimp_Ic|
|00001b80| 6f 6e 50 75 74 54 65 78 | 74 28 4f 70 74 69 6f 6e |onPutTex|t(Option|
|00001b90| 5f 57 69 6e 64 6f 77 25 | 2c 31 37 2c 22 53 75 62 |_Window%|,17,"Sub|
|00001ba0| 74 72 61 63 74 69 6f 6e | 22 29 0d 01 41 5e cc 3a |traction|")..A^.:|
|00001bb0| 6e 65 67 25 3d a3 3a 64 | 69 72 65 63 74 65 64 24 |neg%=.:d|irected$|
|00001bc0| 3d 22 4e 6f 20 4e 65 67 | 61 74 69 76 65 20 4e 75 |="No Neg|ative Nu|
|00001bd0| 6d 62 65 72 73 22 3a f2 | 57 69 6d 70 5f 49 63 6f |mbers":.|Wimp_Ico|
|00001be0| 6e 50 75 74 54 65 78 74 | 28 4f 70 74 69 6f 6e 5f |nPutText|(Option_|
|00001bf0| 57 69 6e 64 6f 77 25 2c | 31 37 2c 22 44 69 66 66 |Window%,|17,"Diff|
|00001c00| 65 72 65 6e 63 65 22 29 | 0d 01 45 05 cd 0d 01 46 |erence")|..E....F|
|00001c10| 1b c9 38 3a f2 67 65 74 | 5f 6c 69 6d 69 74 73 3a |..8:.get|_limits:|
|00001c20| c8 8e 64 69 66 66 25 ca | 0d 01 49 30 c9 39 3a e7 |..diff%.|..I0.9:.|
|00001c30| 28 69 5f 62 75 6d 70 25 | 3e 31 80 6e 65 67 25 3d |(i_bump%|>1.neg%=|
|00001c40| a3 29 84 28 69 5f 62 75 | 6d 70 25 3e 2d 32 30 80 |.).(i_bu|mp%>-20.|
|00001c50| 6e 65 67 25 3d b9 29 8c | 0d 01 4b 1b f2 63 68 61 |neg%=.).|..K..cha|
|00001c60| 6e 67 65 5f 6c 69 6d 69 | 74 73 28 2d 31 2c 31 2c |nge_limi|ts(-1,1,|
|00001c70| 31 39 29 0d 01 4c 05 cd | 0d 01 4d 2f 7f 3a e7 28 |19)..L..|..M/.:.(|
|00001c80| 69 5f 62 75 6d 70 25 3e | 31 80 6e 65 67 25 3d a3 |i_bump%>|1.neg%=.|
|00001c90| 29 84 28 69 5f 62 75 6d | 70 25 3e 2d 32 30 80 6e |).(i_bum|p%>-20.n|
|00001ca0| 65 67 25 3d b9 29 8c 0d | 01 4f 1b f2 63 68 61 6e |eg%=.)..|.O..chan|
|00001cb0| 67 65 5f 6c 69 6d 69 74 | 73 28 2d 31 2c 30 2c 31 |ge_limit|s(-1,0,1|
|00001cc0| 39 29 0d 01 50 05 cd 0d | 01 51 05 cb 0d 01 52 27 |9)..P...|.Q....R'|
|00001cd0| c9 32 33 3a f2 67 65 74 | 5f 6c 69 6d 69 74 73 3a |.23:.get|_limits:|
|00001ce0| e7 64 69 66 66 25 3c 3d | 39 80 64 69 66 66 25 3e |.diff%<=|9.diff%>|
|00001cf0| 3d 35 8c 0d 01 55 1a f2 | 63 68 61 6e 67 65 5f 6c |=5...U..|change_l|
|00001d00| 69 6d 69 74 73 28 31 2c | 30 2c 31 39 29 0d 01 56 |imits(1,|0,19)..V|
|00001d10| 05 cd 0d 01 57 1c c9 32 | 31 3a f2 67 65 74 5f 6c |....W..2|1:.get_l|
|00001d20| 69 6d 69 74 73 3a c8 8e | 64 69 66 66 25 ca 0d 01 |imits:..|diff%...|
|00001d30| 5a 13 c9 39 3a e7 6a 5f | 62 75 6d 70 25 3c 32 30 |Z..9:.j_|bump%<20|
|00001d40| 8c 0d 01 5c 1a f2 63 68 | 61 6e 67 65 5f 6c 69 6d |...\..ch|ange_lim|
|00001d50| 69 74 73 28 31 2c 31 2c | 31 39 29 0d 01 5d 05 cd |its(1,1,|19)..]..|
|00001d60| 0d 01 5e 1b 7f 3a e7 6a | 5f 62 75 6d 70 25 3c 32 |..^..:.j|_bump%<2|
|00001d70| 30 80 64 69 66 66 25 3c | 3d 39 8c 0d 01 60 1a f2 |0.diff%<|=9...`..|
|00001d80| 63 68 61 6e 67 65 5f 6c | 69 6d 69 74 73 28 31 2c |change_l|imits(1,|
|00001d90| 30 2c 32 30 29 0d 01 61 | 05 cd 0d 01 62 05 cb 0d |0,20)..a|....b...|
|00001da0| 01 63 27 c9 32 35 3a f2 | 67 65 74 5f 6c 69 6d 69 |.c'.25:.|get_limi|
|00001db0| 74 73 3a e7 64 69 66 66 | 25 3c 3d 39 80 64 69 66 |ts:.diff|%<=9.dif|
|00001dc0| 66 25 3e 3d 35 8c 0d 01 | 66 1b f2 63 68 61 6e 67 |f%>=5...|f..chang|
|00001dd0| 65 5f 6c 69 6d 69 74 73 | 28 2d 31 2c 30 2c 32 30 |e_limits|(-1,0,20|
|00001de0| 29 0d 01 67 05 cd 0d 01 | 68 67 c9 31 30 3a f2 53 |)..g....|hg.10:.S|
|00001df0| 74 75 64 65 6e 74 5f 4c | 6f 67 4c 6f 61 64 3a f2 |tudent_L|ogLoad:.|
|00001e00| 57 69 6d 70 5f 57 69 6e | 64 6f 77 42 72 69 6e 67 |Wimp_Win|dowBring|
|00001e10| 54 6f 54 6f 70 28 44 69 | 73 70 6c 61 79 5f 57 69 |ToTop(Di|splay_Wi|
|00001e20| 6e 64 6f 77 25 29 3a f2 | 57 69 6d 70 5f 57 69 6e |ndow%):.|Wimp_Win|
|00001e30| 64 6f 77 46 6f 72 63 65 | 44 72 61 77 28 44 69 73 |dowForce|Draw(Dis|
|00001e40| 70 6c 61 79 5f 57 69 6e | 64 6f 77 25 29 0d 01 6c |play_Win|dow%)..l|
|00001e50| 13 cb 3a f2 67 65 74 5f | 6c 69 6d 69 74 73 3a e1 |..:.get_|limits:.|
|00001e60| 0d 01 70 82 dd f2 67 65 | 74 5f 6c 69 6d 69 74 73 |..p...ge|t_limits|
|00001e70| 3a 69 5f 62 75 6d 70 25 | 3d bb 28 a4 57 69 6d 70 |:i_bump%|=.(.Wimp|
|00001e80| 5f 49 63 6f 6e 54 65 78 | 74 28 4f 70 74 69 6f 6e |_IconTex|t(Option|
|00001e90| 5f 57 69 6e 64 6f 77 25 | 2c 31 39 29 29 3a 6a 5f |_Window%|,19)):j_|
|00001ea0| 62 75 6d 70 25 3d bb 28 | a4 57 69 6d 70 5f 49 63 |bump%=.(|.Wimp_Ic|
|00001eb0| 6f 6e 54 65 78 74 28 4f | 70 74 69 6f 6e 5f 57 69 |onText(O|ption_Wi|
|00001ec0| 6e 64 6f 77 25 2c 32 30 | 29 29 3a 64 69 66 66 25 |ndow%,20|)):diff%|
|00001ed0| 3d 6a 5f 62 75 6d 70 25 | 2d 69 5f 62 75 6d 70 25 |=j_bump%|-i_bump%|
|00001ee0| 3a e1 0d 01 76 8f dd f2 | 63 68 61 6e 67 65 5f 6c |:...v...|change_l|
|00001ef0| 69 6d 69 74 73 28 61 64 | 64 25 2c 6f 5f 62 25 2c |imits(ad|d%,o_b%,|
|00001f00| 69 63 25 29 3a ea 69 25 | 3a e3 69 25 3d 30 b8 6f |ic%):.i%|:.i%=0.o|
|00001f10| 5f 62 25 3a f2 57 69 6d | 70 5f 49 63 6f 6e 50 75 |_b%:.Wim|p_IconPu|
|00001f20| 74 54 65 78 74 28 4f 70 | 74 69 6f 6e 5f 57 69 6e |tText(Op|tion_Win|
|00001f30| 64 6f 77 25 2c 69 63 25 | 2b 69 25 2c c3 28 bb 28 |dow%,ic%|+i%,.(.(|
|00001f40| a4 57 69 6d 70 5f 49 63 | 6f 6e 54 65 78 74 28 4f |.Wimp_Ic|onText(O|
|00001f50| 70 74 69 6f 6e 5f 57 69 | 6e 64 6f 77 25 2c 69 63 |ption_Wi|ndow%,ic|
|00001f60| 25 2b 69 25 29 29 2b 61 | 64 64 25 29 29 3a ed 3a |%+i%))+a|dd%)):.:|
|00001f70| e1 0d 01 7d 33 dd f2 45 | 76 65 6e 74 5f 4b 65 79 |...}3..E|vent_Key|
|00001f80| 50 72 65 73 73 28 77 69 | 6e 64 6f 77 25 2c 69 63 |Press(wi|ndow%,ic|
|00001f90| 6f 6e 25 2c 6b 65 79 25 | 29 3a c8 8e 77 69 6e 64 |on%,key%|):..wind|
|00001fa0| 6f 77 25 ca 0d 01 7f 35 | c9 4d 61 69 6e 31 30 5f |ow%....5|.Main10_|
|00001fb0| 57 69 6e 64 6f 77 25 3a | f2 55 73 65 72 5f 4b 65 |Window%:|.User_Ke|
|00001fc0| 79 50 72 65 73 73 4d 61 | 69 6e 31 30 28 20 69 63 |yPressMa|in10( ic|
|00001fd0| 6f 6e 25 2c 6b 65 79 25 | 29 0d 01 80 33 c9 4d 61 |on%,key%|)...3.Ma|
|00001fe0| 69 6e 35 5f 57 69 6e 64 | 6f 77 25 3a f2 55 73 65 |in5_Wind|ow%:.Use|
|00001ff0| 72 5f 4b 65 79 50 72 65 | 73 73 4d 61 69 6e 35 28 |r_KeyPre|ssMain5(|
|00002000| 20 69 63 6f 6e 25 2c 6b | 65 79 25 29 0d 01 81 35 | icon%,k|ey%)...5|
|00002010| c9 4f 70 74 69 6f 6e 5f | 57 69 6e 64 6f 77 25 3a |.Option_|Window%:|
|00002020| f2 55 73 65 72 5f 4b 65 | 79 50 72 65 73 73 4f 70 |.User_Ke|yPressOp|
|00002030| 74 69 6f 6e 28 20 69 63 | 6f 6e 25 2c 6b 65 79 25 |tion( ic|on%,key%|
|00002040| 29 0d 01 82 33 c9 4c 6f | 67 6f 6e 5f 57 69 6e 64 |)...3.Lo|gon_Wind|
|00002050| 6f 77 25 3a f2 55 73 65 | 72 5f 4b 65 79 50 72 65 |ow%:.Use|r_KeyPre|
|00002060| 73 73 4c 6f 67 6f 6e 28 | 20 69 63 6f 6e 25 2c 6b |ssLogon(| icon%,k|
|00002070| 65 79 25 29 0d 01 83 33 | c9 54 65 61 63 68 5f 57 |ey%)...3|.Teach_W|
|00002080| 69 6e 64 6f 77 25 3a f2 | 55 73 65 72 5f 4b 65 79 |indow%:.|User_Key|
|00002090| 50 72 65 73 73 54 65 61 | 63 68 28 20 69 63 6f 6e |PressTea|ch( icon|
|000020a0| 25 2c 6b 65 79 25 29 0d | 01 84 2f c9 53 65 74 5f |%,key%).|../.Set_|
|000020b0| 57 69 6e 64 6f 77 25 3a | f2 55 73 65 72 5f 4b 65 |Window%:|.User_Ke|
|000020c0| 79 50 72 65 73 73 53 65 | 74 28 20 69 63 6f 6e 25 |yPressSe|t( icon%|
|000020d0| 2c 6b 65 79 25 29 0d 01 | 85 2f c9 44 65 6c 5f 57 |,key%)..|./.Del_W|
|000020e0| 69 6e 64 6f 77 25 3a f2 | 55 73 65 72 5f 4b 65 79 |indow%:.|User_Key|
|000020f0| 50 72 65 73 73 44 65 6c | 28 20 69 63 6f 6e 25 2c |PressDel|( icon%,|
|00002100| 6b 65 79 25 29 0d 01 86 | 07 cb 3a e1 0d 01 89 2c |key%)...|..:....,|
|00002110| dd f2 55 73 65 72 5f 4b | 65 79 50 72 65 73 73 53 |..User_K|eyPressS|
|00002120| 65 74 28 20 69 63 6f 6e | 25 2c 6b 65 79 25 29 3a |et( icon|%,key%):|
|00002130| c8 8e 69 63 6f 6e 25 ca | 0d 01 8b 2d c9 30 3a e7 |..icon%.|...-.0:.|
|00002140| a4 57 69 6d 70 5f 49 63 | 6f 6e 54 65 78 74 28 53 |.Wimp_Ic|onText(S|
|00002150| 65 74 5f 57 69 6e 64 6f | 77 25 2c 30 29 3c 3e 70 |et_Windo|w%,0)<>p|
|00002160| 61 73 73 24 8c 0d 01 8d | 48 f2 57 69 6d 70 5f 49 |ass$....|H.Wimp_I|
|00002170| 63 6f 6e 50 75 74 54 65 | 78 74 28 53 65 74 5f 57 |conPutTe|xt(Set_W|
|00002180| 69 6e 64 6f 77 25 2c 30 | 2c 22 22 29 3a f2 57 69 |indow%,0|,""):.Wi|
|00002190| 6d 70 5f 49 63 6f 6e 43 | 61 72 65 74 28 53 65 74 |mp_IconC|aret(Set|
|000021a0| 5f 57 69 6e 64 6f 77 25 | 2c 30 2c 30 29 0d 01 8f |_Window%|,0,0)...|
|000021b0| 26 cc 3a f2 57 69 6d 70 | 5f 49 63 6f 6e 43 61 72 |&.:.Wimp|_IconCar|
|000021c0| 65 74 28 53 65 74 5f 57 | 69 6e 64 6f 77 25 2c 31 |et(Set_W|indow%,1|
|000021d0| 2c 30 29 0d 01 91 05 cd | 0d 01 92 43 c9 31 3a 70 |,0).....|...C.1:p|
|000021e0| 61 73 73 31 24 3d a4 57 | 69 6d 70 5f 49 63 6f 6e |ass1$=.W|imp_Icon|
|000021f0| 54 65 78 74 28 53 65 74 | 5f 57 69 6e 64 6f 77 25 |Text(Set|_Window%|
|00002200| 2c 31 29 3a e7 28 a9 28 | 70 61 73 73 31 24 29 3e |,1):.(.(|pass1$)>|
|00002210| 30 80 6b 65 79 25 3d 31 | 33 29 8c 0d 01 95 24 f2 |0.key%=1|3)....$.|
|00002220| 57 69 6d 70 5f 49 63 6f | 6e 43 61 72 65 74 28 53 |Wimp_Ico|nCaret(S|
|00002230| 65 74 5f 57 69 6e 64 6f | 77 25 2c 32 2c 30 29 0d |et_Windo|w%,2,0).|
|00002240| 01 96 4a cc 3a f2 57 69 | 6d 70 5f 49 63 6f 6e 50 |..J.:.Wi|mp_IconP|
|00002250| 75 74 54 65 78 74 28 53 | 65 74 5f 57 69 6e 64 6f |utText(S|et_Windo|
|00002260| 77 25 2c 31 2c 22 22 29 | 3a f2 57 69 6d 70 5f 49 |w%,1,"")|:.Wimp_I|
|00002270| 63 6f 6e 43 61 72 65 74 | 28 53 65 74 5f 57 69 6e |conCaret|(Set_Win|
|00002280| 64 6f 77 25 2c 31 2c 30 | 29 0d 01 99 05 cd 0d 01 |dow%,1,0|).......|
|00002290| 9a 3b c9 32 3a 70 61 73 | 73 32 24 3d a4 57 69 6d |.;.2:pas|s2$=.Wim|
|000022a0| 70 5f 49 63 6f 6e 54 65 | 78 74 28 53 65 74 5f 57 |p_IconTe|xt(Set_W|
|000022b0| 69 6e 64 6f 77 25 2c 32 | 29 3a e7 70 61 73 73 31 |indow%,2|):.pass1|
|000022c0| 24 3d 70 61 73 73 32 24 | 8c 0d 01 9d d7 70 61 73 |$=pass2$|.....pas|
|000022d0| 73 24 3d a4 57 69 6d 70 | 5f 49 63 6f 6e 54 65 78 |s$=.Wimp|_IconTex|
|000022e0| 74 28 53 65 74 5f 57 69 | 6e 64 6f 77 25 2c 32 29 |t(Set_Wi|ndow%,2)|
|000022f0| 3a f2 57 69 6d 70 5f 49 | 63 6f 6e 50 75 74 54 65 |:.Wimp_I|conPutTe|
|00002300| 78 74 28 53 65 74 5f 57 | 69 6e 64 6f 77 25 2c 30 |xt(Set_W|indow%,0|
|00002310| 2c 22 22 29 3a f2 57 69 | 6d 70 5f 49 63 6f 6e 50 |,""):.Wi|mp_IconP|
|00002320| 75 74 54 65 78 74 28 53 | 65 74 5f 57 69 6e 64 6f |utText(S|et_Windo|
|00002330| 77 25 2c 31 2c 22 22 29 | 3a f2 57 69 6d 70 5f 49 |w%,1,"")|:.Wimp_I|
|00002340| 63 6f 6e 50 75 74 54 65 | 78 74 28 53 65 74 5f 57 |conPutTe|xt(Set_W|
|00002350| 69 6e 64 6f 77 25 2c 32 | 2c 22 22 29 3a f2 73 65 |indow%,2|,""):.se|
|00002360| 74 5f 70 61 73 73 77 6f | 72 64 28 70 61 73 73 24 |t_passwo|rd(pass$|
|00002370| 29 3a f2 57 69 6d 70 5f | 57 69 6e 64 6f 77 43 6c |):.Wimp_|WindowCl|
|00002380| 6f 73 65 28 53 65 74 5f | 57 69 6e 64 6f 77 25 29 |ose(Set_|Window%)|
|00002390| 3a f2 57 69 6d 70 5f 4d | 65 6e 75 43 6c 6f 73 65 |:.Wimp_M|enuClose|
|000023a0| 0d 01 a4 6e cc 3a f2 57 | 69 6d 70 5f 49 63 6f 6e |...n.:.W|imp_Icon|
|000023b0| 50 75 74 54 65 78 74 28 | 53 65 74 5f 57 69 6e 64 |PutText(|Set_Wind|
|000023c0| 6f 77 25 2c 31 2c 22 22 | 29 3a f2 57 69 6d 70 5f |ow%,1,""|):.Wimp_|
|000023d0| 49 63 6f 6e 50 75 74 54 | 65 78 74 28 53 65 74 5f |IconPutT|ext(Set_|
|000023e0| 57 69 6e 64 6f 77 25 2c | 32 2c 22 22 29 3a f2 57 |Window%,|2,""):.W|
|000023f0| 69 6d 70 5f 49 63 6f 6e | 43 61 72 65 74 28 53 65 |imp_Icon|Caret(Se|
|00002400| 74 5f 57 69 6e 64 6f 77 | 25 2c 31 2c 30 29 0d 01 |t_Window|%,1,0)..|
|00002410| a8 05 cd 0d 01 a9 07 cb | 3a e1 0d 01 ac 2d dd f2 |........|:....-..|
|00002420| 55 73 65 72 5f 4b 65 79 | 50 72 65 73 73 54 65 61 |User_Key|PressTea|
|00002430| 63 68 28 20 69 63 6f 6e | 25 2c 6b 65 79 25 29 3a |ch( icon|%,key%):|
|00002440| c8 8e 6b 65 79 25 ca 0d | 01 ae 36 c9 31 33 3a 64 |..key%..|..6.13:d|
|00002450| 65 6c 5f 6c 6f 67 25 3d | a3 3a f2 70 61 73 73 77 |el_log%=|.:.passw|
|00002460| 6f 72 64 28 54 65 61 63 | 68 5f 57 69 6e 64 6f 77 |ord(Teac|h_Window|
|00002470| 25 2c 69 63 6f 6e 25 2c | 6b 65 79 25 29 0d 01 af |%,icon%,|key%)...|
|00002480| 07 cb 3a e1 0d 01 b2 2b | dd f2 55 73 65 72 5f 4b |..:....+|..User_K|
|00002490| 65 79 50 72 65 73 73 44 | 65 6c 28 20 69 63 6f 6e |eyPressD|el( icon|
|000024a0| 25 2c 6b 65 79 25 29 3a | c8 8e 6b 65 79 25 ca 0d |%,key%):|..key%..|
|000024b0| 01 b4 34 c9 31 33 3a 64 | 65 6c 5f 6c 6f 67 25 3d |..4.13:d|el_log%=|
|000024c0| b9 3a f2 70 61 73 73 77 | 6f 72 64 28 44 65 6c 5f |.:.passw|ord(Del_|
|000024d0| 57 69 6e 64 6f 77 25 2c | 69 63 6f 6e 25 2c 6b 65 |Window%,|icon%,ke|
|000024e0| 79 25 29 0d 01 b5 07 cb | 3a e1 0d 01 b8 2d dd f2 |y%).....|:....-..|
|000024f0| 55 73 65 72 5f 4b 65 79 | 50 72 65 73 73 4c 6f 67 |User_Key|PressLog|
|00002500| 6f 6e 28 20 69 63 6f 6e | 25 2c 6b 65 79 25 29 3a |on( icon|%,key%):|
|00002510| c8 8e 6b 65 79 25 ca 0d | 01 ba 3a c9 31 33 3a 6e |..key%..|..:.13:n|
|00002520| 61 6d 65 24 3d a4 57 69 | 6d 70 5f 49 63 6f 6e 54 |ame$=.Wi|mp_IconT|
|00002530| 65 78 74 28 4c 6f 67 6f | 6e 5f 57 69 6e 64 6f 77 |ext(Logo|n_Window|
|00002540| 25 2c 31 29 3a e7 a9 28 | 6e 61 6d 65 24 29 3e 30 |%,1):..(|name$)>0|
|00002550| 8c 0d 01 bd 97 6c 6f 67 | 67 65 64 6f 6e 25 3d b9 |.....log|gedon%=.|
|00002560| 3a 6c 6f 67 63 6f 75 6e | 74 25 3d 30 3a 63 25 3d |:logcoun|t%=0:c%=|
|00002570| 30 3a 6e 61 6d 65 5f 6f | 6e 25 3d a3 3a f2 57 69 |0:name_o|n%=.:.Wi|
|00002580| 6d 70 5f 57 69 6e 64 6f | 77 43 6c 6f 73 65 28 4c |mp_Windo|wClose(L|
|00002590| 6f 67 6f 6e 5f 57 69 6e | 64 6f 77 25 29 3a f2 57 |ogon_Win|dow%):.W|
|000025a0| 69 6d 70 5f 4d 65 6e 75 | 45 6e 61 62 6c 65 28 42 |imp_Menu|Enable(B|
|000025b0| 61 72 5f 4d 65 6e 75 25 | 2c 32 29 3a e7 6d 61 69 |ar_Menu%|,2):.mai|
|000025c0| 6e 35 25 f2 57 69 6d 70 | 5f 57 69 6e 64 6f 77 42 |n5%.Wimp|_WindowB|
|000025d0| 72 69 6e 67 54 6f 54 6f | 70 28 4d 61 69 6e 35 5f |ringToTo|p(Main5_|
|000025e0| 57 69 6e 64 6f 77 25 29 | 0d 01 c1 32 e7 6d 61 69 |Window%)|...2.mai|
|000025f0| 6e 31 30 25 f2 57 69 6d | 70 5f 57 69 6e 64 6f 77 |n10%.Wim|p_Window|
|00002600| 42 72 69 6e 67 54 6f 54 | 6f 70 28 4d 61 69 6e 31 |BringToT|op(Main1|
|00002610| 30 5f 57 69 6e 64 6f 77 | 25 29 0d 01 c2 6a f2 57 |0_Window|%)...j.W|
|00002620| 69 6d 70 5f 57 69 6e 64 | 6f 77 4f 70 65 6e 28 4f |imp_Wind|owOpen(O|
|00002630| 70 74 69 6f 6e 5f 57 69 | 6e 64 6f 77 25 29 3a f2 |ption_Wi|ndow%):.|
|00002640| 57 69 6d 70 5f 4d 65 6e | 75 45 6e 61 62 6c 65 28 |Wimp_Men|uEnable(|
|00002650| 42 61 72 5f 4d 65 6e 75 | 25 2c 33 29 3a f2 57 69 |Bar_Menu|%,3):.Wi|
|00002660| 6d 70 5f 4d 65 6e 75 45 | 6e 61 62 6c 65 28 42 61 |mp_MenuE|nable(Ba|
|00002670| 72 5f 4d 65 6e 75 25 2c | 34 29 3a f2 6f 70 65 6e |r_Menu%,|4):.open|
|00002680| 5f 6c 6f 67 0d 01 c6 05 | cd 0d 01 c7 07 cb 3a e1 |_log....|......:.|
|00002690| 0d 01 ca 45 dd f2 55 73 | 65 72 5f 4b 65 79 50 72 |...E..Us|er_KeyPr|
|000026a0| 65 73 73 4d 61 69 6e 31 | 30 28 20 69 63 6f 6e 25 |essMain1|0( icon%|
|000026b0| 2c 6b 65 79 25 29 3a f2 | 6b 65 79 70 72 65 73 73 |,key%):.|keypress|
|000026c0| 28 4d 61 69 6e 31 30 5f | 57 69 6e 64 6f 77 25 2c |(Main10_|Window%,|
|000026d0| 39 39 29 3a e1 0d 01 ce | 42 dd f2 55 73 65 72 5f |99):....|B..User_|
|000026e0| 4b 65 79 50 72 65 73 73 | 4d 61 69 6e 35 28 69 63 |KeyPress|Main5(ic|
|000026f0| 6f 6e 25 2c 6b 65 79 25 | 29 3a f2 6b 65 79 70 72 |on%,key%|):.keypr|
|00002700| 65 73 73 28 4d 61 69 6e | 35 5f 57 69 6e 64 6f 77 |ess(Main|5_Window|
|00002710| 25 2c 32 34 29 3a e1 0d | 01 d2 36 dd f2 6b 65 79 |%,24):..|..6..key|
|00002720| 70 72 65 73 73 28 77 69 | 6e 64 6f 77 25 2c 73 69 |press(wi|ndow%,si|
|00002730| 7a 65 25 29 3a e7 66 69 | 6e 69 73 68 25 80 6d 61 |ze%):.fi|nish%.ma|
|00002740| 69 6e 35 25 8c 69 63 6f | 6e 25 3d 32 34 0d 01 d4 |in5%.ico|n%=24...|
|00002750| 1d e7 66 69 6e 69 73 68 | 25 80 6d 61 69 6e 31 30 |..finish|%.main10|
|00002760| 25 8c 69 63 6f 6e 25 3d | 39 39 0d 01 d5 39 74 72 |%.icon%=|99...9tr|
|00002770| 79 24 3d a4 57 69 6d 70 | 5f 49 63 6f 6e 54 65 78 |y$=.Wimp|_IconTex|
|00002780| 74 28 77 69 6e 64 6f 77 | 25 2c 69 63 6f 6e 25 29 |t(window|%,icon%)|
|00002790| 3a e7 61 6e 73 24 28 69 | 63 6f 6e 25 29 3d 74 72 |:.ans$(i|con%)=tr|
|000027a0| 79 24 8c 0d 01 d7 11 e7 | 69 63 6f 6e 25 3c 73 69 |y$......|icon%<si|
|000027b0| 7a 65 25 8c 0d 01 d8 26 | f2 57 69 6d 70 5f 49 63 |ze%....&|.Wimp_Ic|
|000027c0| 6f 6e 43 61 72 65 74 28 | 77 69 6e 64 6f 77 25 2c |onCaret(|window%,|
|000027d0| 69 63 6f 6e 25 2b 31 2c | 30 29 0d 01 d9 22 cc 3a |icon%+1,|0)...".:|
|000027e0| f2 57 69 6d 70 5f 49 63 | 6f 6e 43 61 72 65 74 28 |.Wimp_Ic|onCaret(|
|000027f0| 77 69 6e 64 6f 77 25 2c | 30 2c 30 29 0d 01 db 05 |window%,|0,0)....|
|00002800| cd 0d 01 dc 10 cc 3a e7 | 74 72 79 24 3c 3e 22 22 |......:.|try$<>""|
|00002810| 8c 0d 01 de 39 70 24 3d | 22 45 52 52 4f 52 20 22 |....9p$=|"ERROR "|
|00002820| 2b 63 61 6c 63 24 28 69 | 63 6f 6e 25 29 2b 22 20 |+calc$(i|con%)+" |
|00002830| 3d 20 22 2b 74 72 79 24 | 3a 6c 6f 67 24 28 63 25 |= "+try$|:log$(c%|
|00002840| 29 3d 70 24 3a 63 25 2b | 3d 31 0d 01 e1 4a cd 3a |)=p$:c%+|=1...J.:|
|00002850| f2 57 69 6d 70 5f 49 63 | 6f 6e 50 75 74 54 65 78 |.Wimp_Ic|onPutTex|
|00002860| 74 28 77 69 6e 64 6f 77 | 25 2c 69 63 6f 6e 25 2c |t(window|%,icon%,|
|00002870| 22 22 29 3a f2 57 69 6d | 70 5f 49 63 6f 6e 43 61 |""):.Wim|p_IconCa|
|00002880| 72 65 74 28 77 69 6e 64 | 6f 77 25 2c 69 63 6f 6e |ret(wind|ow%,icon|
|00002890| 25 2c 30 29 0d 01 e4 07 | cd 3a e1 0d 01 e7 28 dd |%,0)....|.:....(.|
|000028a0| f2 55 73 65 72 5f 4b 65 | 79 50 72 65 73 73 4f 70 |.User_Ke|yPressOp|
|000028b0| 74 69 6f 6e 28 20 69 63 | 6f 6e 25 2c 6b 65 79 25 |tion( ic|on%,key%|
|000028c0| 29 3a e1 0d 01 ea 26 dd | f2 45 76 65 6e 74 5f 4d |):....&.|.Event_M|
|000028d0| 65 6e 75 43 68 6f 69 63 | 65 28 6d 65 6e 75 25 29 |enuChoic|e(menu%)|
|000028e0| 3a c8 8e 6d 65 6e 75 25 | ca 0d 01 ec 22 c9 42 61 |:..menu%|....".Ba|
|000028f0| 72 5f 4d 65 6e 75 25 3a | f2 55 73 65 72 5f 4d 65 |r_Menu%:|.User_Me|
|00002900| 6e 75 43 68 6f 69 63 65 | 42 61 72 0d 01 ed 07 cb |nuChoice|Bar.....|
|00002910| 3a e1 0d 01 f0 2f dd f2 | 55 73 65 72 5f 4d 65 6e |:..../..|User_Men|
|00002920| 75 43 68 6f 69 63 65 42 | 61 72 3a c8 8e a4 57 69 |uChoiceB|ar:...Wi|
|00002930| 6d 70 5f 4d 65 6e 75 43 | 68 6f 69 63 65 28 30 29 |mp_MenuC|hoice(0)|
|00002940| ca 0d 01 f2 28 c9 32 3a | ff 28 22 46 69 6c 65 72 |....(.2:|.("Filer|
|00002950| 5f 52 75 6e 20 3c 54 61 | 62 6c 65 73 24 44 69 72 |_Run <Ta|bles$Dir|
|00002960| 3e 2e 21 48 65 6c 70 22 | 29 0d 01 f3 43 c9 36 3a |>.!Help"|)...C.6:|
|00002970| 66 69 6c 65 25 3d 8e 22 | 3c 44 61 74 61 24 44 69 |file%=."|<Data$Di|
|00002980| 72 3e 2e 54 5f 4c 6f 67 | 22 3a 62 69 67 25 3d a2 |r>.T_Log|":big%=.|
|00002990| 23 28 66 69 6c 65 25 29 | 3a d9 23 66 69 6c 65 25 |#(file%)|:.#file%|
|000029a0| 3a e7 62 69 67 25 3e 37 | 30 30 30 8c 0d 01 f8 b3 |:.big%>7|000.....|
|000029b0| f2 57 69 6d 70 5f 57 69 | 6e 64 6f 77 45 72 72 6f |.Wimp_Wi|ndowErro|
|000029c0| 72 42 6f 78 28 22 54 65 | 61 63 68 65 72 20 4c 6f |rBox("Te|acher Lo|
|000029d0| 67 20 46 69 6c 65 22 2c | 22 59 6f 75 20 68 61 76 |g File",|"You hav|
|000029e0| 65 20 62 65 65 6e 20 77 | 61 72 6e 65 64 20 74 68 |e been w|arned th|
|000029f0| 65 20 6c 6f 67 20 66 69 | 6c 65 20 69 73 20 6d 75 |e log fi|le is mu|
|00002a00| 63 68 20 74 6f 6f 20 6c | 61 72 67 65 20 61 6e 64 |ch too l|arge and|
|00002a10| 20 69 73 20 62 65 69 6e | 67 20 64 65 6c 65 74 65 | is bein|g delete|
|00002a20| 64 20 77 69 74 68 20 4f | 52 20 77 69 74 68 6f 75 |d with O|R withou|
|00002a30| 74 20 79 6f 75 72 20 70 | 65 72 6d 69 73 73 69 6f |t your p|ermissio|
|00002a40| 6e 22 29 3a 66 25 3d ae | 22 3c 44 61 74 61 24 44 |n"):f%=.|"<Data$D|
|00002a50| 69 72 3e 2e 54 5f 4c 6f | 67 22 3a d9 23 66 25 0d |ir>.T_Lo|g":.#f%.|
|00002a60| 01 fa 1c cd 3a e7 62 69 | 67 25 3e 35 30 30 30 80 |....:.bi|g%>5000.|
|00002a70| 62 69 67 25 3c 3d 33 30 | 30 30 8c 0d 01 fc e1 e7 |big%<=30|00......|
|00002a80| a4 57 69 6d 70 5f 57 69 | 6e 64 6f 77 43 61 6e 63 |.Wimp_Wi|ndowCanc|
|00002a90| 65 6c 28 22 54 65 61 63 | 68 65 72 20 4c 6f 67 20 |el("Teac|her Log |
|00002aa0| 46 69 6c 65 22 2c 22 20 | 54 68 65 20 74 65 61 63 |File"," |The teac|
|00002ab0| 68 65 72 20 6c 6f 67 20 | 66 69 6c 65 20 69 73 20 |her log |file is |
|00002ac0| 67 65 74 74 69 6e 67 20 | 74 6f 6f 20 6c 61 72 67 |getting |too larg|
|00002ad0| 65 2e 20 20 50 72 65 73 | 73 20 3c 4f 4b 3e 20 74 |e.  Pres|s <OK> t|
|00002ae0| 6f 20 64 65 6c 65 74 65 | 20 74 68 65 20 63 6f 6e |o delete| the con|
|00002af0| 74 65 6e 74 73 20 6f 72 | 20 63 61 6e 63 65 6c 20 |tents or| cancel |
|00002b00| 74 6f 20 71 75 69 74 2e | 20 49 20 73 75 67 67 65 |to quit.| I sugge|
|00002b10| 73 74 20 79 6f 75 20 73 | 61 76 65 20 69 74 20 61 |st you s|ave it a|
|00002b20| 73 20 74 65 78 74 20 69 | 66 20 79 6f 75 20 77 61 |s text i|f you wa|
|00002b30| 6e 74 20 74 6f 20 6b 65 | 65 70 20 69 74 2e 22 29 |nt to ke|ep it.")|
|00002b40| 8c 66 25 3d ae 22 3c 44 | 61 74 61 24 44 69 72 3e |.f%=."<D|ata$Dir>|
|00002b50| 2e 54 5f 4c 6f 67 22 3a | d9 23 66 25 0d 01 fd 31 |.T_Log":|.#f%...1|
|00002b60| cd 3a 66 69 6c 65 25 3d | ae 22 3c 44 61 74 61 24 |.:file%=|."<Data$|
|00002b70| 44 69 72 3e 2e 4c 6f 67 | 22 3a d9 23 66 69 6c 65 |Dir>.Log|":.#file|
|00002b80| 25 3a 66 69 6e 69 73 68 | 65 64 25 3d b9 0d 02 00 |%:finish|ed%=....|
|00002b90| 07 cb 3a e1 0d 02 03 2e | dd f2 45 76 65 6e 74 5f |..:.....|..Event_|
|00002ba0| 53 61 76 65 46 69 6c 65 | 28 66 69 6c 65 24 2c 77 |SaveFile|(file$,w|
|00002bb0| 69 6e 64 6f 77 25 29 3a | c8 8e 77 69 6e 64 6f 77 |indow%):|..window|
|00002bc0| 25 ca 0d 02 05 78 c9 53 | 61 76 65 5f 57 69 6e 64 |%....x.S|ave_Wind|
|00002bd0| 6f 77 25 3a c8 99 38 2c | 31 30 2c 66 69 6c 65 24 |ow%:..8,|10,file$|
|00002be0| 2c 26 46 46 46 2c 2c 6c | 6f 67 66 69 6c 65 25 2c |,&FFF,,l|ogfile%,|
|00002bf0| 6c 6f 67 66 69 6c 65 25 | 2b 57 69 64 74 68 25 2a |logfile%|+Width%*|
|00002c00| 4e 6f 4f 66 4c 69 6e 65 | 73 25 3a f2 57 69 6d 70 |NoOfLine|s%:.Wimp|
|00002c10| 5f 57 69 6e 64 6f 77 43 | 6c 6f 73 65 28 53 61 76 |_WindowC|lose(Sav|
|00002c20| 65 5f 57 69 6e 64 6f 77 | 25 29 3a f2 57 69 6d 70 |e_Window|%):.Wimp|
|00002c30| 5f 4d 65 6e 75 43 6c 6f | 73 65 0d 02 09 07 cb 3a |_MenuClo|se.....:|
|00002c40| e1 0d 02 0c 74 dd f2 52 | 61 6e 64 6f 6d 53 65 6c |....t..R|andomSel|
|00002c50| 65 63 74 3a f2 67 65 74 | 5f 6c 69 6d 69 74 73 3a |ect:.get|_limits:|
|00002c60| e3 69 25 3d 30 b8 32 30 | 3a 72 61 6e 64 25 28 69 |.i%=0.20|:rand%(i|
|00002c70| 25 29 3d 30 3a ed 3a 69 | 5f 62 25 3d 69 5f 62 75 |%)=0:.:i|_b%=i_bu|
|00002c80| 6d 70 25 3a e3 49 25 3d | 31 b8 64 69 66 66 25 2b |mp%:.I%=|1.diff%+|
|00002c90| 31 3a 72 61 6e 64 25 28 | 49 25 29 3d 69 5f 62 25 |1:rand%(|I%)=i_b%|
|00002ca0| 3a 69 5f 62 25 2b 3d 31 | 3a ed 3a e7 72 61 6e 64 |:i_b%+=1|:.:.rand|
|00002cb0| 25 3c 3e 33 8c 0d 02 15 | 2e e3 4a 25 3d 31 b8 35 |%<>3....|..J%=1.5|
|00002cc0| 30 3a 49 25 3d 31 3a c8 | 95 72 61 6e 64 25 28 49 |0:I%=1:.|.rand%(I|
|00002cd0| 25 29 3c 3e 30 3a e7 b3 | 28 32 29 3d 31 8c f2 73 |%)<>0:..|(2)=1..s|
|00002ce0| 77 61 70 0d 02 19 0d 49 | 25 2b 3d 31 3a ce 3a ed |wap....I|%+=1:.:.|
|00002cf0| 0d 02 1c 07 cd 3a e1 0d | 02 1f 48 dd f2 73 77 61 |.....:..|..H..swa|
|00002d00| 70 3a e7 49 25 3c 64 69 | 66 66 25 2b 31 20 73 25 |p:.I%<di|ff%+1 s%|
|00002d10| 3d 72 61 6e 64 25 28 49 | 25 29 3a 72 61 6e 64 25 |=rand%(I|%):rand%|
|00002d20| 28 49 25 29 3d 72 61 6e | 64 25 28 49 25 2b 31 29 |(I%)=ran|d%(I%+1)|
|00002d30| 3a 72 61 6e 64 25 28 49 | 25 2b 31 29 3d 73 25 0d |:rand%(I|%+1)=s%.|
|00002d40| 02 21 05 e1 0d 02 23 1b | dd f2 73 61 76 65 6c 6f |.!....#.|..savelo|
|00002d50| 67 3a e7 6c 6f 67 67 65 | 64 6f 6e 25 3d a3 e1 0d |g:.logge|don%=...|
|00002d60| 02 25 6a 63 25 3d 30 3a | 66 69 6c 65 25 3d ad 22 |.%jc%=0:|file%=."|
|00002d70| 3c 44 61 74 61 24 44 69 | 72 3e 2e 4c 6f 67 22 3a |<Data$Di|r>.Log":|
|00002d80| 66 69 6c 65 32 25 3d ad | 22 3c 44 61 74 61 24 44 |file2%=.|"<Data$D|
|00002d90| 69 72 3e 2e 54 5f 4c 6f | 67 22 3a cf 23 66 69 6c |ir>.T_Lo|g":.#fil|
|00002da0| 65 25 3d a2 23 66 69 6c | 65 25 3a cf 23 66 69 6c |e%=.#fil|e%:.#fil|
|00002db0| 65 32 25 3d a2 23 66 69 | 6c 65 32 25 3a e7 6e 61 |e2%=.#fi|le2%:.na|
|00002dc0| 6d 65 5f 6f 6e 25 3d a3 | 8c 0d 02 2b 70 f1 23 66 |me_on%=.|...+p.#f|
|00002dd0| 69 6c 65 25 2c 6e 61 6d | 65 24 3a f1 23 66 69 6c |ile%,nam|e$:.#fil|
|00002de0| 65 25 2c 22 22 3a f1 23 | 66 69 6c 65 25 2c 91 24 |e%,"":.#|file%,.$|
|00002df0| 3a f1 23 66 69 6c 65 25 | 2c 22 22 3a f1 23 66 69 |:.#file%|,"":.#fi|
|00002e00| 6c 65 32 25 2c 6e 61 6d | 65 24 3a f1 23 66 69 6c |le2%,nam|e$:.#fil|
|00002e10| 65 32 25 2c 22 22 3a f1 | 23 66 69 6c 65 32 25 2c |e2%,"":.|#file2%,|
|00002e20| 91 24 3a f1 23 66 69 6c | 65 32 25 2c 22 22 3a 6e |.$:.#fil|e2%,"":n|
|00002e30| 61 6d 65 5f 6f 6e 25 3d | b9 0d 02 34 db cd 3a f1 |ame_on%=|...4..:.|
|00002e40| 23 66 69 6c 65 25 2c 67 | 72 69 64 5f 73 69 7a 65 |#file%,g|rid_size|
|00002e50| 24 3a f1 23 66 69 6c 65 | 32 25 2c 67 72 69 64 5f |$:.#file|2%,grid_|
|00002e60| 73 69 7a 65 24 3a f1 23 | 66 69 6c 65 25 2c 64 69 |size$:.#|file%,di|
|00002e70| 66 66 69 63 75 6c 74 79 | 24 3a f1 23 66 69 6c 65 |fficulty|$:.#file|
|00002e80| 32 25 2c 64 69 66 66 69 | 63 75 6c 74 79 24 3a f1 |2%,diffi|culty$:.|
|00002e90| 23 66 69 6c 65 25 2c 6f | 70 65 72 61 74 69 6f 6e |#file%,o|peration|
|00002ea0| 24 3a f1 23 66 69 6c 65 | 32 25 2c 6f 70 65 72 61 |$:.#file|2%,opera|
|00002eb0| 74 69 6f 6e 24 3a f1 23 | 66 69 6c 65 25 2c 64 69 |tion$:.#|file%,di|
|00002ec0| 72 65 63 74 65 64 24 3a | f1 23 66 69 6c 65 32 25 |rected$:|.#file2%|
|00002ed0| 2c 64 69 72 65 63 74 65 | 64 24 3a c8 95 6c 6f 67 |,directe|d$:..log|
|00002ee0| 24 28 63 25 29 3c 3e 22 | 22 3a f1 23 66 69 6c 65 |$(c%)<>"|":.#file|
|00002ef0| 25 2c 6c 6f 67 24 28 63 | 25 29 3a f1 23 66 69 6c |%,log$(c|%):.#fil|
|00002f00| 65 32 25 2c 6c 6f 67 24 | 28 63 25 29 3a 63 25 2b |e2%,log$|(c%):c%+|
|00002f10| 3d 31 3a ce 0d 02 42 0e | e7 6d 61 69 6e 35 25 3d |=1:...B.|.main5%=|
|00002f20| b9 8c 0d 02 43 32 e3 69 | 25 3d 30 b8 32 34 3a e7 |....C2.i|%=0.24:.|
|00002f30| a4 57 69 6d 70 5f 49 63 | 6f 6e 54 65 78 74 28 4d |.Wimp_Ic|onText(M|
|00002f40| 61 69 6e 35 5f 57 69 6e | 64 6f 77 25 2c 69 25 29 |ain5_Win|dow%,i%)|
|00002f50| 3d 22 22 8c 0d 02 45 0a | 66 69 6e 25 3d a3 0d 02 |=""...E.|fin%=...|
|00002f60| 46 0c cc 3a 66 69 6e 25 | 3d b9 0d 02 48 07 cd 3a |F..:fin%|=...H..:|
|00002f70| ed 0d 02 4a 11 cd 3a e7 | 6d 61 69 6e 31 30 25 3d |...J..:.|main10%=|
|00002f80| b9 8c 0d 02 4c 33 e3 69 | 25 3d 30 b8 39 39 3a e7 |....L3.i|%=0.99:.|
|00002f90| a4 57 69 6d 70 5f 49 63 | 6f 6e 54 65 78 74 28 4d |.Wimp_Ic|onText(M|
|00002fa0| 61 69 6e 31 30 5f 57 69 | 6e 64 6f 77 25 2c 69 25 |ain10_Wi|ndow%,i%|
|00002fb0| 29 3d 22 22 8c 0d 02 4e | 0a 66 69 6e 25 3d a3 0d |)=""...N|.fin%=..|
|00002fc0| 02 4f 0c cc 3a 66 69 6e | 25 3d b9 0d 02 51 07 cd |.O..:fin|%=...Q..|
|00002fd0| 3a ed 0d 02 53 0e cd 3a | e7 66 69 6e 25 3d a3 8c |:...S..:|.fin%=..|
|00002fe0| 0d 02 55 3d 6e 63 24 3d | 22 4e 6f 74 20 63 6f 6d |..U=nc$=|"Not com|
|00002ff0| 70 6c 65 74 65 20 69 6e | 20 22 2b 6c 6f 67 5f 74 |plete in| "+log_t|
|00003000| 69 6d 65 24 3a f1 23 66 | 69 6c 65 25 2c 6e 63 24 |ime$:.#f|ile%,nc$|
|00003010| 3a f1 23 66 69 6c 65 32 | 25 2c 6e 63 24 0d 02 58 |:.#file2|%,nc$..X|
|00003020| 3b cc 3a 63 63 24 3d 22 | 43 6f 6d 70 6c 65 74 65 |;.:cc$="|Complete|
|00003030| 20 69 6e 20 22 2b 6c 6f | 67 5f 74 69 6d 65 24 3a | in "+lo|g_time$:|
|00003040| f1 23 66 69 6c 65 25 2c | 63 63 24 3a f1 23 66 69 |.#file%,|cc$:.#fi|
|00003050| 6c 65 32 25 2c 63 63 24 | 0d 02 5c 2f cd 3a f1 23 |le2%,cc$|..\/.:.#|
|00003060| 66 69 6c 65 25 2c 22 22 | 3a f1 23 66 69 6c 65 32 |file%,""|:.#file2|
|00003070| 25 2c 22 22 3a d9 23 66 | 69 6c 65 25 3a d9 23 66 |%,"":.#f|ile%:.#f|
|00003080| 69 6c 65 32 25 3a e1 0d | 02 63 23 dd f2 73 65 74 |ile2%:..|.c#..set|
|00003090| 5f 70 61 73 73 77 6f 72 | 64 28 70 61 73 73 24 29 |_passwor|d(pass$)|
|000030a0| 3a ee 85 d9 23 66 25 3a | f2 65 0d 02 65 78 66 25 |:...#f%:|.e..exf%|
|000030b0| 3d ad 22 3c 44 61 74 61 | 24 44 69 72 3e 2e 50 61 |=."<Data|$Dir>.Pa|
|000030c0| 73 73 57 6f 72 64 22 3a | e3 69 25 3d 31 b8 a9 28 |ssWord":|.i%=1..(|
|000030d0| 70 61 73 73 24 29 3a f1 | 23 66 25 2c bd 28 97 28 |pass$):.|#f%,.(.(|
|000030e0| c1 70 61 73 73 24 2c 69 | 25 2c 31 29 29 2d 34 33 |.pass$,i|%,1))-43|
|000030f0| 29 3a ed 69 25 3a f1 23 | 66 25 2c 22 5d 22 3a e3 |):.i%:.#|f%,"]":.|
|00003100| 69 25 3d 31 b8 31 32 2d | a9 28 70 61 73 73 24 29 |i%=1.12-|.(pass$)|
|00003110| 3a f1 23 66 25 2c 22 20 | 22 3a ed 3a d9 23 66 25 |:.#f%," |":.:.#f%|
|00003120| 3a e1 0d 02 70 2f dd f2 | 70 61 73 73 77 6f 72 64 |:...p/..|password|
|00003130| 28 77 69 6e 64 6f 77 25 | 2c 69 63 6f 6e 25 2c 6b |(window%|,icon%,k|
|00003140| 65 79 25 29 3a e7 64 65 | 6c 5f 6c 6f 67 25 3d a3 |ey%):.de|l_log%=.|
|00003150| 8c 0d 02 72 46 70 24 3d | a4 57 69 6d 70 5f 49 63 |...rFp$=|.Wimp_Ic|
|00003160| 6f 6e 54 65 78 74 28 77 | 69 6e 64 6f 77 25 2c 69 |onText(w|indow%,i|
|00003170| 63 6f 6e 25 29 3a e7 a4 | 57 69 6d 70 5f 49 63 6f |con%):..|Wimp_Ico|
|00003180| 6e 54 65 78 74 28 77 69 | 6e 64 6f 77 25 2c 30 29 |nText(wi|ndow%,0)|
|00003190| 3d 70 61 73 73 24 8c 0d | 02 74 b2 f2 54 65 61 63 |=pass$..|.t..Teac|
|000031a0| 68 65 72 5f 4c 6f 67 4c | 6f 61 64 3a f2 57 69 6d |her_LogL|oad:.Wim|
|000031b0| 70 5f 57 69 6e 64 6f 77 | 42 72 69 6e 67 54 6f 54 |p_Window|BringToT|
|000031c0| 6f 70 28 44 69 73 70 6c | 61 79 5f 57 69 6e 64 6f |op(Displ|ay_Windo|
|000031d0| 77 25 29 3a f2 57 69 6d | 70 5f 57 69 6e 64 6f 77 |w%):.Wim|p_Window|
|000031e0| 46 6f 72 63 65 44 72 61 | 77 28 44 69 73 70 6c 61 |ForceDra|w(Displa|
|000031f0| 79 5f 57 69 6e 64 6f 77 | 25 29 3a f2 57 69 6d 70 |y_Window|%):.Wimp|
|00003200| 5f 49 63 6f 6e 50 75 74 | 54 65 78 74 28 77 69 6e |_IconPut|Text(win|
|00003210| 64 6f 77 25 2c 69 63 6f | 6e 25 2c 22 22 29 3a f2 |dow%,ico|n%,""):.|
|00003220| 57 69 6d 70 5f 57 69 6e | 64 6f 77 43 6c 6f 73 65 |Wimp_Win|dowClose|
|00003230| 28 77 69 6e 64 6f 77 25 | 29 3a f2 57 69 6d 70 5f |(window%|):.Wimp_|
|00003240| 4d 65 6e 75 43 6c 6f 73 | 65 0d 02 7a 4a cc 3a f2 |MenuClos|e..zJ.:.|
|00003250| 57 69 6d 70 5f 49 63 6f | 6e 50 75 74 54 65 78 74 |Wimp_Ico|nPutText|
|00003260| 28 77 69 6e 64 6f 77 25 | 2c 69 63 6f 6e 25 2c 22 |(window%|,icon%,"|
|00003270| 22 29 3a f2 57 69 6d 70 | 5f 49 63 6f 6e 43 61 72 |"):.Wimp|_IconCar|
|00003280| 65 74 28 77 69 6e 64 6f | 77 25 2c 69 63 6f 6e 25 |et(windo|w%,icon%|
|00003290| 2c 30 29 0d 02 7d 05 cd | 0d 02 7e 2b cc 3a e7 a4 |,0)..}..|..~+.:..|
|000032a0| 57 69 6d 70 5f 49 63 6f | 6e 54 65 78 74 28 77 69 |Wimp_Ico|nText(wi|
|000032b0| 6e 64 6f 77 25 2c 69 63 | 6f 6e 25 29 3d 70 61 73 |ndow%,ic|on%)=pas|
|000032c0| 73 24 8c 0d 02 80 b6 66 | 25 3d ae 22 3c 44 61 74 |s$.....f|%=."<Dat|
|000032d0| 61 24 44 69 72 3e 2e 54 | 5f 4c 6f 67 22 3a d9 23 |a$Dir>.T|_Log":.#|
|000032e0| 66 25 3a f2 57 69 6d 70 | 5f 57 69 6e 64 6f 77 46 |f%:.Wimp|_WindowF|
|000032f0| 6f 72 63 65 44 72 61 77 | 28 44 69 73 70 6c 61 79 |orceDraw|(Display|
|00003300| 5f 57 69 6e 64 6f 77 25 | 29 3a f2 57 69 6d 70 5f |_Window%|):.Wimp_|
|00003310| 49 63 6f 6e 50 75 74 54 | 65 78 74 28 77 69 6e 64 |IconPutT|ext(wind|
|00003320| 6f 77 25 2c 69 63 6f 6e | 25 2c 22 22 29 3a f2 57 |ow%,icon|%,""):.W|
|00003330| 69 6d 70 5f 49 63 6f 6e | 43 61 72 65 74 28 77 69 |imp_Icon|Caret(wi|
|00003340| 6e 64 6f 77 25 2c 69 63 | 6f 6e 25 2c 30 29 3a f2 |ndow%,ic|on%,0):.|
|00003350| 57 69 6d 70 5f 57 69 6e | 64 6f 77 43 6c 6f 73 65 |Wimp_Win|dowClose|
|00003360| 28 77 69 6e 64 6f 77 25 | 29 3a f2 57 69 6d 70 5f |(window%|):.Wimp_|
|00003370| 4d 65 6e 75 43 6c 6f 73 | 65 0d 02 87 4a cc 3a f2 |MenuClos|e...J.:.|
|00003380| 57 69 6d 70 5f 49 63 6f | 6e 50 75 74 54 65 78 74 |Wimp_Ico|nPutText|
|00003390| 28 77 69 6e 64 6f 77 25 | 2c 69 63 6f 6e 25 2c 22 |(window%|,icon%,"|
|000033a0| 22 29 3a f2 57 69 6d 70 | 5f 49 63 6f 6e 43 61 72 |"):.Wimp|_IconCar|
|000033b0| 65 74 28 77 69 6e 64 6f | 77 25 2c 69 63 6f 6e 25 |et(windo|w%,icon%|
|000033c0| 2c 30 29 0d 02 8a 05 cd | 0d 02 8b 07 cd 3a e1 0d |,0).....|.....:..|
|000033d0| 02 8e 5e dd f2 54 65 61 | 63 68 65 72 5f 4c 6f 67 |..^..Tea|cher_Log|
|000033e0| 4c 6f 61 64 3a 63 6f 6d | 6d 65 6e 74 73 25 3d 6c |Load:com|ments%=l|
|000033f0| 6f 67 66 69 6c 65 25 3a | 74 6c 25 3d 8e 22 3c 44 |ogfile%:|tl%=."<D|
|00003400| 61 74 61 24 44 69 72 3e | 2e 54 5f 4c 6f 67 22 3a |ata$Dir>|.T_Log":|
|00003410| e7 a2 23 74 6c 25 3d 30 | 8c d9 23 74 6c 25 3a 4e |..#tl%=0|..#tl%:N|
|00003420| 6f 4f 66 4c 69 6e 65 73 | 25 3d 30 3a e1 0d 02 92 |oOfLines|%=0:....|
|00003430| 9b 63 25 3d 30 3a f5 3a | e8 23 74 6c 25 2c 75 6e |.c%=0:.:|.#tl%,un|
|00003440| 73 63 72 61 6d 62 6c 65 | 64 24 28 63 25 29 3a 24 |scramble|d$(c%):$|
|00003450| 63 6f 6d 6d 65 6e 74 73 | 25 3d 75 6e 73 63 72 61 |comments|%=unscra|
|00003460| 6d 62 6c 65 64 24 28 63 | 25 29 2b c4 57 69 64 74 |mbled$(c|%)+.Widt|
|00003470| 68 25 2d a9 28 75 6e 73 | 63 72 61 6d 62 6c 65 64 |h%-.(uns|crambled|
|00003480| 24 28 63 25 29 29 2d 31 | 2c 22 20 22 29 2b bd 28 |$(c%))-1|," ")+.(|
|00003490| 31 30 29 3a 63 6f 6d 6d | 65 6e 74 73 25 2b 3d 57 |10):comm|ents%+=W|
|000034a0| 69 64 74 68 25 3a 63 25 | 2b 3d 31 3a fd c5 23 74 |idth%:c%|+=1:..#t|
|000034b0| 6c 25 3a 4e 6f 4f 66 4c | 69 6e 65 73 25 3d 63 25 |l%:NoOfL|ines%=c%|
|000034c0| 3a d9 23 74 6c 25 3a e1 | 0d 02 9d 5c dd f2 53 74 |:.#tl%:.|...\..St|
|000034d0| 75 64 65 6e 74 5f 4c 6f | 67 4c 6f 61 64 3a 63 6f |udent_Lo|gLoad:co|
|000034e0| 6d 6d 65 6e 74 73 25 3d | 6c 6f 67 66 69 6c 65 25 |mments%=|logfile%|
|000034f0| 3a 73 6c 25 3d 8e 22 3c | 44 61 74 61 24 44 69 72 |:sl%=."<|Data$Dir|
|00003500| 3e 2e 4c 6f 67 22 3a e7 | a2 23 73 6c 25 3d 30 8c |>.Log":.|.#sl%=0.|
|00003510| d9 23 73 6c 25 3a 4e 6f | 4f 66 4c 69 6e 65 73 25 |.#sl%:No|OfLines%|
|00003520| 3d 30 3a e1 0d 02 a1 9b | 63 25 3d 30 3a f5 3a e8 |=0:.....|c%=0:.:.|
|00003530| 23 73 6c 25 2c 75 6e 73 | 63 72 61 6d 62 6c 65 64 |#sl%,uns|crambled|
|00003540| 24 28 63 25 29 3a 24 63 | 6f 6d 6d 65 6e 74 73 25 |$(c%):$c|omments%|
|00003550| 3d 75 6e 73 63 72 61 6d | 62 6c 65 64 24 28 63 25 |=unscram|bled$(c%|
|00003560| 29 2b c4 57 69 64 74 68 | 25 2d a9 28 75 6e 73 63 |)+.Width|%-.(unsc|
|00003570| 72 61 6d 62 6c 65 64 24 | 28 63 25 29 29 2d 31 2c |rambled$|(c%))-1,|
|00003580| 22 20 22 29 2b bd 28 31 | 30 29 3a 63 6f 6d 6d 65 |" ")+.(1|0):comme|
|00003590| 6e 74 73 25 2b 3d 57 69 | 64 74 68 25 3a 63 25 2b |nts%+=Wi|dth%:c%+|
|000035a0| 3d 31 3a fd c5 23 73 6c | 25 3a 4e 6f 4f 66 4c 69 |=1:..#sl|%:NoOfLi|
|000035b0| 6e 65 73 25 3d 63 25 3a | d9 23 73 6c 25 3a e1 0d |nes%=c%:|.#sl%:..|
|000035c0| 02 ac a1 dd f2 67 72 69 | 64 5f 61 6e 73 28 77 69 |.....gri|d_ans(wi|
|000035d0| 6e 64 6f 77 25 2c 6a 31 | 25 2c 6a 32 25 2c 6b 31 |ndow%,j1|%,j2%,k1|
|000035e0| 25 2c 6b 32 25 29 3a 63 | 6f 75 6e 74 25 3d 30 3a |%,k2%):c|ount%=0:|
|000035f0| e3 4a 25 3d 6a 31 25 b8 | 6a 32 25 3a e3 4b 25 3d |.J%=j1%.|j2%:.K%=|
|00003600| 6b 31 25 b8 6b 32 25 3a | 6f 6e 65 24 3d a4 57 69 |k1%.k2%:|one$=.Wi|
|00003610| 6d 70 5f 49 63 6f 6e 54 | 65 78 74 28 77 69 6e 64 |mp_IconT|ext(wind|
|00003620| 6f 77 25 2c 4a 25 29 3a | 74 77 6f 24 3d a4 57 69 |ow%,J%):|two$=.Wi|
|00003630| 6d 70 5f 49 63 6f 6e 54 | 65 78 74 28 77 69 6e 64 |mp_IconT|ext(wind|
|00003640| 6f 77 25 2c 4b 25 29 3a | e7 6e 65 67 25 3d a3 80 |ow%,K%):|.neg%=..|
|00003650| bb 28 6f 6e 65 24 29 3e | bb 28 74 77 6f 24 29 8c |.(one$)>|.(two$).|
|00003660| 0d 02 b3 25 cc 3a 74 65 | 6d 70 24 3d 6f 6e 65 24 |...%.:te|mp$=one$|
|00003670| 3a 6f 6e 65 24 3d 74 77 | 6f 24 3a 74 77 6f 24 3d |:one$=tw|o$:two$=|
|00003680| 74 65 6d 70 24 0d 02 b5 | 21 cd 3a 73 74 72 24 3d |temp$...|!.:str$=|
|00003690| 6f 6e 65 24 2b 6f 70 24 | 2b 74 77 6f 24 3a e7 6e |one$+op$|+two$:.n|
|000036a0| 65 67 25 3d b9 8c 0d 02 | b8 45 63 61 6c 63 24 28 |eg%=....|.Ecalc$(|
|000036b0| 63 6f 75 6e 74 25 29 3d | 6f 6e 65 24 2b 22 20 22 |count%)=|one$+" "|
|000036c0| 2b 6f 70 65 72 61 74 6f | 72 24 2b 22 20 22 2b 74 |+operato|r$+" "+t|
|000036d0| 77 6f 24 3a 61 6e 73 24 | 28 63 6f 75 6e 74 25 29 |wo$:ans$|(count%)|
|000036e0| 3d c3 28 a0 28 73 74 72 | 24 29 29 0d 02 ba 4a cc |=.(.(str|$))...J.|
|000036f0| 3a 63 61 6c 63 24 28 63 | 6f 75 6e 74 25 29 3d 6f |:calc$(c|ount%)=o|
|00003700| 6e 65 24 2b 22 20 22 2b | 6f 70 65 72 61 74 6f 72 |ne$+" "+|operator|
|00003710| 24 2b 22 20 22 2b 74 77 | 6f 24 3a 61 6e 73 24 28 |$+" "+tw|o$:ans$(|
|00003720| 63 6f 75 6e 74 25 29 3d | c3 28 94 28 a0 28 73 74 |count%)=|.(.(.(st|
|00003730| 72 24 29 29 29 0d 02 bd | 15 cd 3a 63 6f 75 6e 74 |r$)))...|..:count|
|00003740| 25 2b 3d 31 3a ed 3a ed | 3a e1 0d 02 c3 2a dd f2 |%+=1:.:.|:....*..|
|00003750| 6f 70 65 6e 5f 6c 6f 67 | 3a 66 25 3d ae 22 3c 44 |open_log|:f%=."<D|
|00003760| 61 74 61 24 44 69 72 3e | 2e 4c 6f 67 22 3a d9 23 |ata$Dir>|.Log":.#|
|00003770| 66 25 3a e1 0d 02 c8 0b | dd f2 65 3a ee 85 87 0d |f%:.....|..e:....|
|00003780| 02 ca 1d 2a 53 65 74 20 | 42 61 73 69 63 24 46 69 |...*Set |Basic$Fi|
|00003790| 6c 65 20 3c 74 68 24 66 | 69 6c 65 3e 0d 02 cb 19 |le <th$f|ile>....|
|000037a0| d7 22 45 64 69 74 3a 54 | 68 72 6f 77 62 61 63 6b |."Edit:T|hrowback|
|000037b0| 22 3a e0 3a e1 0d 02 ce | 72 dd f2 57 69 6d 70 5f |":.:....|r..Wimp_|
|000037c0| 53 74 61 72 74 28 54 61 | 73 6b 4e 61 6d 65 24 2c |Start(Ta|skName$,|
|000037d0| 77 69 6d 70 5f 6d 65 6d | 6f 72 79 25 2c 69 63 6f |wimp_mem|ory%,ico|
|000037e0| 6e 25 29 3a de 77 69 6d | 70 25 20 77 69 6d 70 5f |n%):.wim|p% wimp_|
|000037f0| 6d 65 6d 6f 72 79 25 2c | 69 63 6f 6e 73 25 20 69 |memory%,|icons% i|
|00003800| 63 6f 6e 25 3a e7 77 69 | 6d 70 5f 6d 65 6d 6f 72 |con%:.wi|mp_memor|
|00003810| 79 25 3c 32 35 36 8c 77 | 69 6d 70 5f 6d 65 6d 6f |y%<256.w|imp_memo|
|00003820| 72 79 25 3d 32 35 36 0d | 02 d1 7b 69 63 6f 6e 5f |ry%=256.|..{icon_|
|00003830| 6d 65 6d 6f 72 79 25 3d | 69 63 6f 6e 73 25 2b 69 |memory%=|icons%+i|
|00003840| 63 6f 6e 25 3a 74 61 73 | 6b 24 3d 54 61 73 6b 4e |con%:tas|k$=TaskN|
|00003850| 61 6d 65 24 3a 69 6e 64 | 69 72 65 63 74 5f 73 70 |ame$:ind|irect_sp|
|00003860| 72 69 74 65 73 25 3d 31 | 3a 64 69 72 65 63 74 5f |rites%=1|:direct_|
|00003870| 73 70 72 69 74 65 73 25 | 3d 31 3a f2 57 69 6d 70 |sprites%|=1:.Wimp|
|00003880| 5f 53 65 74 45 76 65 6e | 74 56 61 72 69 61 62 6c |_SetEven|tVariabl|
|00003890| 65 73 3a ee 85 f2 57 69 | 6d 70 5f 45 72 72 6f 72 |es:...Wi|mp_Error|
|000038a0| 3a e0 0d 02 d6 35 c8 99 | 32 36 32 33 33 36 2c 32 |:....5..|262336,2|
|000038b0| 30 30 2c 26 34 42 35 33 | 34 31 35 34 2c 54 61 73 |00,&4B53|4154,Tas|
|000038c0| 6b 4e 61 6d 65 24 b8 76 | 65 72 73 69 6f 6e 25 2c |kName$.v|ersion%,|
|000038d0| 74 61 73 6b 25 3a e1 0d | 02 d9 6d dd f2 57 69 6d |task%:..|..m..Wim|
|000038e0| 70 5f 57 61 69 74 46 6f | 72 45 76 65 6e 74 3a ea |p_WaitFo|rEvent:.|
|000038f0| 6d 61 73 6b 25 2c 65 76 | 65 6e 74 25 3a 66 69 6e |mask%,ev|ent%:fin|
|00003900| 69 73 68 65 64 25 3d a3 | 3a 6d 61 73 6b 25 3d 25 |ished%=.|:mask%=%|
|00003910| 31 31 31 30 30 30 30 31 | 31 30 30 31 3a f5 3a c8 |11100001|1001:.:.|
|00003920| 99 32 36 32 33 34 33 2c | 6d 61 73 6b 25 2c 77 69 |.262343,|mask%,wi|
|00003930| 6d 70 25 b8 65 76 65 6e | 74 25 3a c8 8e 65 76 65 |mp%.even|t%:..eve|
|00003940| 6e 74 25 ca 0d 02 e0 06 | c9 30 0d 02 e1 1b c9 31 |nt%.....|.0.....1|
|00003950| 3a f2 57 69 6d 70 5f 50 | 6f 6c 6c 44 72 61 77 57 |:.Wimp_P|ollDrawW|
|00003960| 69 6e 64 6f 77 0d 02 e2 | 16 c9 32 3a c8 99 32 36 |indow...|..2:..26|
|00003970| 32 33 34 31 2c 2c 77 69 | 6d 70 25 0d 02 e3 1c c9 |2341,,wi|mp%.....|
|00003980| 33 3a f2 57 69 6d 70 5f | 50 6f 6c 6c 43 6c 6f 73 |3:.Wimp_|PollClos|
|00003990| 65 57 69 6e 64 6f 77 0d | 02 e4 06 c9 34 0d 02 e5 |eWindow.|....4...|
|000039a0| 06 c9 35 0d 02 e6 1b c9 | 36 3a f2 57 69 6d 70 5f |..5.....|6:.Wimp_|
|000039b0| 50 6f 6c 6c 4d 6f 75 73 | 65 43 6c 69 63 6b 0d 02 |PollMous|eClick..|
|000039c0| e7 1c c9 37 3a f2 57 69 | 6d 70 5f 50 6f 6c 6c 53 |...7:.Wi|mp_PollS|
|000039d0| 61 76 65 4d 65 73 73 61 | 67 65 0d 02 e8 19 c9 38 |aveMessa|ge.....8|
|000039e0| 3a f2 57 69 6d 70 5f 50 | 6f 6c 6c 4b 65 79 50 72 |:.Wimp_P|ollKeyPr|
|000039f0| 65 73 73 0d 02 e9 1f c9 | 39 3a f2 45 76 65 6e 74 |ess.....|9:.Event|
|00003a00| 5f 4d 65 6e 75 43 68 6f | 69 63 65 28 6d 65 6e 75 |_MenuCho|ice(menu|
|00003a10| 25 29 0d 02 ea 07 c9 31 | 30 0d 02 eb 07 c9 31 31 |%).....1|0.....11|
|00003a20| 0d 02 ec 07 c9 31 32 0d | 02 ed 1d c9 31 37 2c 31 |.....12.|....17,1|
|00003a30| 38 3a f2 57 69 6d 70 5f | 50 6f 6c 6c 4d 65 73 73 |8:.Wimp_|PollMess|
|00003a40| 61 67 65 73 0d 02 ee 07 | c9 31 39 0d 02 ef 12 cb |ages....|.19.....|
|00003a50| 3a fd 66 69 6e 69 73 68 | 65 64 25 3a e1 0d 02 f3 |:.finish|ed%:....|
|00003a60| 2c dd f2 57 69 6d 70 5f | 43 6c 6f 73 65 44 6f 77 |,..Wimp_|CloseDow|
|00003a70| 6e 3a c8 99 32 36 32 33 | 36 35 2c 74 61 73 6b 25 |n:..2623|65,task%|
|00003a80| 2c 22 54 41 53 4b 22 3a | e1 0d 02 f7 2d dd a4 57 |,"TASK":|....-..W|
|00003a90| 69 6d 70 5f 57 69 6e 64 | 6f 77 4c 6f 61 64 28 77 |imp_Wind|owLoad(w|
|00003aa0| 69 6e 64 6f 77 24 29 3a | e7 69 6e 74 65 72 66 61 |indow$):|.interfa|
|00003ab0| 63 65 25 3d a3 8c 0d 02 | f9 43 3d a4 57 69 6d 70 |ce%=....|.C=.Wimp|
|00003ac0| 5f 57 69 6e 64 6f 77 4c | 6f 61 64 46 72 6f 6d 28 |_WindowL|oadFrom(|
|00003ad0| 77 69 6e 64 6f 77 24 2c | 22 3c 4f 62 65 79 24 44 |window$,|"<Obey$D|
|00003ae0| 69 72 3e 2e 52 65 73 6f | 75 72 63 65 73 2e 54 65 |ir>.Reso|urces.Te|
|00003af0| 6d 70 6c 61 74 65 73 22 | 29 0d 02 fa 44 cc 3a 3d |mplates"|)...D.:=|
|00003b00| a4 57 69 6d 70 5f 57 69 | 6e 64 6f 77 4c 6f 61 64 |.Wimp_Wi|ndowLoad|
|00003b10| 46 72 6f 6d 28 77 69 6e | 64 6f 77 24 2c 22 3c 4f |From(win|dow$,"<O|
|00003b20| 62 65 79 24 44 69 72 3e | 2e 52 65 73 6f 75 72 63 |bey$Dir>|.Resourc|
|00003b30| 65 73 2e 54 65 6d 70 6c | 52 4f 32 22 29 0d 02 fd |es.Templ|RO2")...|
|00003b40| 99 dd a4 57 69 6d 70 5f | 49 63 6f 6e 42 61 72 28 |...Wimp_|IconBar(|
|00003b50| 53 70 72 69 74 65 24 29 | 3a ea 69 63 6f 6e 25 3a |Sprite$)|:.icon%:|
|00003b60| 77 69 6d 70 25 21 30 3d | 2d 31 3a 77 69 6d 70 25 |wimp%!0=|-1:wimp%|
|00003b70| 21 34 3d 30 3a 77 69 6d | 70 25 21 38 3d 30 3a 77 |!4=0:wim|p%!8=0:w|
|00003b80| 69 6d 70 25 21 31 32 3d | 36 38 3a 77 69 6d 70 25 |imp%!12=|68:wimp%|
|00003b90| 21 31 36 3d 36 38 3a 77 | 69 6d 70 25 21 32 30 3d |!16=68:w|imp%!20=|
|00003ba0| 26 33 30 30 32 3a 24 28 | 77 69 6d 70 25 2b 32 34 |&3002:$(|wimp%+24|
|00003bb0| 29 3d 53 70 72 69 74 65 | 24 3a c8 99 32 36 32 33 |)=Sprite|$:..2623|
|00003bc0| 33 38 2c 2c 77 69 6d 70 | 25 b8 69 63 6f 6e 25 3a |38,,wimp|%.icon%:|
|00003bd0| 3d 69 63 6f 6e 25 0d 03 | 07 40 dd a4 57 69 6d 70 |=icon%..|.@..Wimp|
|00003be0| 5f 4d 65 6e 75 43 72 65 | 61 74 65 28 6d 65 6e 75 |_MenuCre|ate(menu|
|00003bf0| 24 29 3a e7 6d 65 6e 75 | 24 3d 22 43 6f 6c 6f 75 |$):.menu|$="Colou|
|00003c00| 72 73 22 8c 3d a4 57 69 | 6d 70 5f 4d 65 6e 75 43 |rs".=.Wi|mp_MenuC|
|00003c10| 6f 6c 6f 75 72 73 0d 03 | 09 cd ea 6d 65 6e 75 25 |olours..|...menu%|
|00003c20| 2c 69 6e 64 65 78 25 2c | 77 69 64 74 68 25 2c 6c |,index%,|width%,l|
|00003c30| 65 6e 67 74 68 25 2c 6b | 25 2c 73 25 3a de 6d 65 |ength%,k|%,s%:.me|
|00003c40| 6e 75 25 20 32 38 2b a4 | 57 69 6d 70 5f 4d 65 6e |nu% 28+.|Wimp_Men|
|00003c50| 75 4e 6f 4f 66 45 6e 74 | 72 69 65 73 28 6d 65 6e |uNoOfEnt|ries(men|
|00003c60| 75 24 29 2a 32 34 3a 6d | 65 6e 75 25 3f 31 32 3d |u$)*24:m|enu%?12=|
|00003c70| 37 3a 6d 65 6e 75 25 3f | 31 33 3d 32 3a 6d 65 6e |7:menu%?|13=2:men|
|00003c80| 75 25 3f 31 34 3d 37 3a | 6d 65 6e 75 25 3f 31 35 |u%?14=7:|menu%?15|
|00003c90| 3d 30 3a 6d 65 6e 75 25 | 21 31 36 3d 31 34 30 3a |=0:menu%|!16=140:|
|00003ca0| 6d 65 6e 75 25 21 32 30 | 3d 34 34 3a 6d 65 6e 75 |menu%!20|=44:menu|
|00003cb0| 25 21 32 34 3d 30 3a 69 | 6e 64 65 78 25 3d 6d 65 |%!24=0:i|ndex%=me|
|00003cc0| 6e 75 25 2b 32 38 3a 24 | 6d 65 6e 75 25 3d c0 6d |nu%+28:$|menu%=.m|
|00003cd0| 65 6e 75 24 2c a7 6d 65 | 6e 75 24 2c 22 5c 22 29 |enu$,.me|nu$,"\")|
|00003ce0| 2d 31 29 0d 03 0f 73 77 | 69 64 74 68 25 3d a9 28 |-1)...sw|idth%=.(|
|00003cf0| c0 6d 65 6e 75 24 2c a7 | 6d 65 6e 75 24 2c 22 5c |.menu$,.|menu$,"\|
|00003d00| 22 29 2d 31 29 29 3a 6d | 65 6e 75 24 2b 3d 22 5c |")-1)):m|enu$+="\|
|00003d10| 22 3a 4d 65 6e 75 5f 4e | 6f 4f 66 45 6e 74 72 69 |":Menu_N|oOfEntri|
|00003d20| 65 73 25 3d 30 3a c8 95 | 6d 65 6e 75 24 3c 3e 22 |es%=0:..|menu$<>"|
|00003d30| 22 3a 6d 65 6e 75 24 3d | c1 6d 65 6e 75 24 2c a7 |":menu$=|.menu$,.|
|00003d40| 6d 65 6e 75 24 2c 22 5c | 22 29 2b 31 29 3a c8 8e |menu$,"\|")+1):..|
|00003d50| 6d 65 6e 75 24 ca 0d 03 | 14 07 c9 22 22 0d 03 15 |menu$...|...""...|
|00003d60| 62 7f 3a 21 69 6e 64 65 | 78 25 3d 30 3a 69 6e 64 |b.:!inde|x%=0:ind|
|00003d70| 65 78 25 21 34 3d 2d 31 | 3a 69 6e 64 65 78 25 21 |ex%!4=-1|:index%!|
|00003d80| 38 3d 26 37 30 30 30 30 | 32 31 3a 6c 65 6e 67 74 |8=&70000|21:lengt|
|00003d90| 68 25 3d a7 6d 65 6e 75 | 24 2c 22 5c 22 29 2d 31 |h%=.menu|$,"\")-1|
|00003da0| 3a 6b 25 3d a7 c0 6d 65 | 6e 75 24 2c 6c 65 6e 67 |:k%=..me|nu$,leng|
|00003db0| 74 68 25 29 2c 22 3e 22 | 29 3a c8 8e 6b 25 ca 0d |th%),">"|):..k%..|
|00003dc0| 03 1a 06 c9 30 0d 03 1b | 3c 7f 3a 73 25 3d a0 28 |....0...|<.:s%=.(|
|00003dd0| c1 6d 65 6e 75 24 2c 6b | 25 2b 31 2c 6c 65 6e 67 |.menu$,k|%+1,leng|
|00003de0| 74 68 25 2d 6b 25 29 29 | 3a 69 6e 64 65 78 25 21 |th%-k%))|:index%!|
|00003df0| 34 3d 73 25 3a 6c 65 6e | 67 74 68 25 3d 6b 25 2d |4=s%:len|gth%=k%-|
|00003e00| 31 0d 03 1f 41 cb 3a 24 | 28 69 6e 64 65 78 25 2b |1...A.:$|(index%+|
|00003e10| 31 32 29 3d c0 6d 65 6e | 75 24 2c 6c 65 6e 67 74 |12)=.men|u$,lengt|
|00003e20| 68 25 29 3a e7 6c 65 6e | 67 74 68 25 3e 77 69 64 |h%):.len|gth%>wid|
|00003e30| 74 68 25 8c 77 69 64 74 | 68 25 3d 6c 65 6e 67 74 |th%.widt|h%=lengt|
|00003e40| 68 25 0d 03 22 0e 69 6e | 64 65 78 25 2b 3d 32 34 |h%..".in|dex%+=24|
|00003e50| 0d 03 23 3f cb 3a ce 3a | 6d 65 6e 75 25 21 31 36 |..#?.:.:|menu%!16|
|00003e60| 3d 31 36 2a 28 77 69 64 | 74 68 25 2b 31 29 3a 69 |=16*(wid|th%+1):i|
|00003e70| 6e 64 65 78 25 21 2d 32 | 34 3d 69 6e 64 65 78 25 |ndex%!-2|4=index%|
|00003e80| 21 2d 32 34 84 26 38 30 | 3a 3d 6d 65 6e 75 25 0d |!-24.&80|:=menu%.|
|00003e90| 03 28 5d dd f2 57 69 6d | 70 5f 4d 65 6e 75 44 69 |.(]..Wim|p_MenuDi|
|00003ea0| 73 61 62 6c 65 28 6d 65 | 6e 75 25 2c 69 74 65 6d |sable(me|nu%,item|
|00003eb0| 25 29 3a 6d 65 6e 75 25 | 21 28 33 36 2b 28 69 74 |%):menu%|!(36+(it|
|00003ec0| 65 6d 25 2d 31 29 2a 32 | 34 29 3d 6d 65 6e 75 25 |em%-1)*2|4)=menu%|
|00003ed0| 21 28 33 36 2b 28 69 74 | 65 6d 25 2d 31 29 2a 32 |!(36+(it|em%-1)*2|
|00003ee0| 34 29 84 28 31 3c 3c 32 | 32 29 3a e1 0d 03 2c 7b |4).(1<<2|2):...,{|
|00003ef0| dd f2 57 69 6d 70 5f 4d | 65 6e 75 45 6e 61 62 6c |..Wimp_M|enuEnabl|
|00003f00| 65 28 6d 65 6e 75 25 2c | 69 74 65 6d 25 29 3a f2 |e(menu%,|item%):.|
|00003f10| 57 69 6d 70 5f 4d 65 6e | 75 44 69 73 61 62 6c 65 |Wimp_Men|uDisable|
|00003f20| 28 6d 65 6e 75 25 2c 69 | 74 65 6d 25 29 3a 6d 65 |(menu%,i|tem%):me|
|00003f30| 6e 75 25 21 28 33 36 2b | 28 69 74 65 6d 25 2d 31 |nu%!(36+|(item%-1|
|00003f40| 29 2a 32 34 29 3d 6d 65 | 6e 75 25 21 28 33 36 2b |)*24)=me|nu%!(36+|
|00003f50| 28 69 74 65 6d 25 2d 31 | 29 2a 32 34 29 82 28 31 |(item%-1|)*24).(1|
|00003f60| 3c 3c 32 32 29 3a e1 0d | 03 31 61 dd f2 57 69 6d |<<22):..|.1a..Wim|
|00003f70| 70 5f 57 69 6e 64 6f 77 | 42 72 69 6e 67 54 6f 54 |p_Window|BringToT|
|00003f80| 6f 70 28 77 69 6e 64 6f | 77 25 29 3a 21 77 69 6d |op(windo|w%):!wim|
|00003f90| 70 25 3d 77 69 6e 64 6f | 77 25 3a c8 99 32 36 32 |p%=windo|w%:..262|
|00003fa0| 33 34 37 2c 2c 77 69 6d | 70 25 3a 77 69 6d 70 25 |347,,wim|p%:wimp%|
|00003fb0| 21 32 38 3d 2d 31 3a c8 | 99 32 36 32 33 34 31 2c |!28=-1:.|.262341,|
|00003fc0| 2c 77 69 6d 70 25 3a e1 | 0d 03 38 77 dd f2 57 69 |,wimp%:.|..8w..Wi|
|00003fd0| 6d 70 5f 57 69 6e 64 6f | 77 4f 70 65 6e 28 77 69 |mp_Windo|wOpen(wi|
|00003fe0| 6e 64 6f 77 25 29 3a 21 | 77 69 6d 70 25 3d 77 69 |ndow%):!|wimp%=wi|
|00003ff0| 6e 64 6f 77 25 3a c8 99 | 32 36 32 33 34 37 2c 2c |ndow%:..|262347,,|
|00004000| 77 69 6d 70 25 3a c8 99 | 32 36 32 33 34 31 2c 2c |wimp%:..|262341,,|
|00004010| 77 69 6d 70 25 3a e1 3a | f2 57 69 6d 70 5f 57 69 |wimp%:.:|.Wimp_Wi|
|00004020| 6e 64 6f 77 49 6e 74 65 | 72 66 61 63 65 3a c8 99 |ndowInte|rface:..|
|00004030| 35 33 30 30 34 39 2c 2c | 77 69 6d 70 25 3a e1 0d |530049,,|wimp%:..|
|00004040| 03 41 4f dd f2 57 69 6d | 70 5f 49 63 6f 6e 43 61 |.AO..Wim|p_IconCa|
|00004050| 72 65 74 28 77 69 6e 64 | 6f 77 25 2c 69 63 6f 6e |ret(wind|ow%,icon|
|00004060| 25 2c 63 68 61 72 73 25 | 29 3a c8 99 32 36 32 33 |%,chars%|):..2623|
|00004070| 35 34 2c 77 69 6e 64 6f | 77 25 2c 69 63 6f 6e 25 |54,windo|w%,icon%|
|00004080| 2c 2c 2c 2d 31 2c 63 68 | 61 72 73 25 3a e1 0d 03 |,,,-1,ch|ars%:...|
|00004090| 45 7f dd a4 57 69 6d 70 | 5f 49 63 6f 6e 54 65 78 |E...Wimp|_IconTex|
|000040a0| 74 28 77 69 6e 64 6f 77 | 25 2c 69 63 6f 6e 25 29 |t(window|%,icon%)|
|000040b0| 3a 77 69 6d 70 25 21 30 | 3d 77 69 6e 64 6f 77 25 |:wimp%!0|=window%|
|000040c0| 3a 77 69 6d 70 25 21 34 | 3d 69 63 6f 6e 25 3a c8 |:wimp%!4|=icon%:.|
|000040d0| 99 32 36 32 33 35 30 2c | 2c 77 69 6d 70 25 3a e7 |.262350,|,wimp%:.|
|000040e0| 28 28 77 69 6d 70 25 21 | 32 34 29 80 26 31 30 30 |((wimp%!|24).&100|
|000040f0| 29 3d 30 85 31 2c 22 49 | 63 6f 6e 20 69 73 6e 27 |)=0.1,"I|con isn'|
|00004100| 74 20 69 6e 64 69 72 65 | 63 74 65 64 22 0d 03 49 |t indire|cted"..I|
|00004110| 10 3d 24 28 77 69 6d 70 | 25 21 32 38 29 0d 03 4b |.=$(wimp|%!28)..K|
|00004120| 40 dd f2 57 69 6d 70 5f | 57 69 6e 64 6f 77 43 6c |@..Wimp_|WindowCl|
|00004130| 6f 73 65 28 77 69 6e 64 | 6f 77 25 29 3a 21 77 69 |ose(wind|ow%):!wi|
|00004140| 6d 70 25 3d 77 69 6e 64 | 6f 77 25 3a c8 99 32 36 |mp%=wind|ow%:..26|
|00004150| 32 33 34 32 2c 2c 77 69 | 6d 70 25 3a e1 0d 03 50 |2342,,wi|mp%:...P|
|00004160| 72 dd f2 57 69 6d 70 5f | 49 63 6f 6e 44 69 73 61 |r..Wimp_|IconDisa|
|00004170| 62 6c 65 28 77 69 6e 64 | 6f 77 25 2c 69 63 6f 6e |ble(wind|ow%,icon|
|00004180| 25 29 3a 77 69 6d 70 25 | 21 30 3d 77 69 6e 64 6f |%):wimp%|!0=windo|
|00004190| 77 25 3a 77 69 6d 70 25 | 21 34 3d 69 63 6f 6e 25 |w%:wimp%|!4=icon%|
|000041a0| 3a 77 69 6d 70 25 21 38 | 3d 31 3c 3c 32 32 3a 77 |:wimp%!8|=1<<22:w|
|000041b0| 69 6d 70 25 21 31 32 3d | 31 3c 3c 32 32 3a c8 99 |imp%!12=|1<<22:..|
|000041c0| 32 36 32 33 34 39 2c 2c | 77 69 6d 70 25 3a e1 0d |262349,,|wimp%:..|
|000041d0| 03 56 88 dd f2 57 69 6d | 70 5f 49 63 6f 6e 50 75 |.V...Wim|p_IconPu|
|000041e0| 74 54 65 78 74 28 77 69 | 6e 64 6f 77 25 2c 69 63 |tText(wi|ndow%,ic|
|000041f0| 6f 6e 25 2c 74 65 78 74 | 24 29 3a 77 69 6d 70 25 |on%,text|$):wimp%|
|00004200| 21 30 3d 77 69 6e 64 6f | 77 25 3a 77 69 6d 70 25 |!0=windo|w%:wimp%|
|00004210| 21 34 3d 69 63 6f 6e 25 | 3a c8 99 32 36 32 33 35 |!4=icon%|:..26235|
|00004220| 30 2c 2c 77 69 6d 70 25 | 3a e7 28 28 77 69 6d 70 |0,,wimp%|:.((wimp|
|00004230| 25 21 32 34 29 80 26 31 | 30 30 29 3d 30 85 31 2c |%!24).&1|00)=0.1,|
|00004240| 22 49 63 6f 6e 20 69 73 | 6e 27 74 20 69 6e 64 69 |"Icon is|n't indi|
|00004250| 72 65 63 74 65 64 22 0d | 03 5a 5a 24 28 77 69 6d |rected".|.ZZ$(wim|
|00004260| 70 25 21 32 38 29 3d 74 | 65 78 74 24 3a 77 69 6d |p%!28)=t|ext$:wim|
|00004270| 70 25 21 30 3d 77 69 6e | 64 6f 77 25 3a 77 69 6d |p%!0=win|dow%:wim|
|00004280| 70 25 21 34 3d 69 63 6f | 6e 25 3a 77 69 6d 70 25 |p%!4=ico|n%:wimp%|
|00004290| 21 38 3d 30 3a 77 69 6d | 70 25 21 31 32 3d 30 3a |!8=0:wim|p%!12=0:|
|000042a0| c8 99 32 36 32 33 34 39 | 2c 2c 77 69 6d 70 25 3a |..262349|,,wimp%:|
|000042b0| e1 0d 03 60 6d dd f2 57 | 69 6d 70 5f 49 63 6f 6e |...`m..W|imp_Icon|
|000042c0| 45 6e 61 62 6c 65 28 77 | 69 6e 64 6f 77 25 2c 69 |Enable(w|indow%,i|
|000042d0| 63 6f 6e 25 29 3a 77 69 | 6d 70 25 21 30 3d 77 69 |con%):wi|mp%!0=wi|
|000042e0| 6e 64 6f 77 25 3a 77 69 | 6d 70 25 21 34 3d 69 63 |ndow%:wi|mp%!4=ic|
|000042f0| 6f 6e 25 3a 77 69 6d 70 | 25 21 38 3d 30 3a 77 69 |on%:wimp|%!8=0:wi|
|00004300| 6d 70 25 21 31 32 3d 31 | 3c 3c 32 32 3a c8 99 32 |mp%!12=1|<<22:..2|
|00004310| 36 32 33 34 39 2c 2c 77 | 69 6d 70 25 3a e1 0d 03 |62349,,w|imp%:...|
|00004320| 66 22 dd f2 57 69 6d 70 | 5f 4d 65 6e 75 43 6c 6f |f"..Wimp|_MenuClo|
|00004330| 73 65 3a c8 99 32 36 32 | 33 35 36 2c 2d 31 3a e1 |se:..262|356,-1:.|
|00004340| 0d 03 6a 33 dd a4 57 69 | 6d 70 5f 4d 65 6e 75 43 |..j3..Wi|mp_MenuC|
|00004350| 68 6f 69 63 65 28 6c 65 | 76 65 6c 25 29 3a 3d 28 |hoice(le|vel%):=(|
|00004360| 77 69 6d 70 25 21 28 34 | 2a 6c 65 76 65 6c 25 29 |wimp%!(4|*level%)|
|00004370| 29 2b 31 0d 03 6d 54 dd | f2 57 69 6d 70 5f 57 69 |)+1..mT.|.Wimp_Wi|
|00004380| 6e 64 6f 77 45 72 72 6f | 72 42 6f 78 28 74 69 74 |ndowErro|rBox(tit|
|00004390| 6c 65 24 2c 6d 65 73 73 | 61 67 65 24 29 3a f2 57 |le$,mess|age$):.W|
|000043a0| 69 6d 70 5f 57 69 6e 64 | 6f 77 41 6c 65 72 74 42 |imp_Wind|owAlertB|
|000043b0| 6f 78 28 74 69 74 6c 65 | 24 2c 6d 65 73 73 61 67 |ox(title|$,messag|
|000043c0| 65 24 2c 32 29 3a e1 0d | 03 71 81 dd a4 57 69 6d |e$,2):..|.q...Wim|
|000043d0| 70 5f 57 69 6e 64 6f 77 | 43 61 6e 63 65 6c 28 74 |p_Window|Cancel(t|
|000043e0| 69 74 6c 65 24 2c 6d 65 | 73 73 61 67 65 24 29 3a |itle$,me|ssage$):|
|000043f0| 24 28 77 69 6d 70 25 2b | 34 29 3d 6d 65 73 73 61 |$(wimp%+|4)=messa|
|00004400| 67 65 24 3a 72 65 73 70 | 6f 6e 73 65 25 3d 32 33 |ge$:resp|onse%=23|
|00004410| 3a c8 99 32 36 32 33 36 | 37 2c 77 69 6d 70 25 2c |:..26236|7,wimp%,|
|00004420| 72 65 73 70 6f 6e 73 65 | 25 2c 74 69 74 6c 65 24 |response|%,title$|
|00004430| b8 2c 72 65 73 70 6f 6e | 73 65 25 3a 3d 72 65 73 |.,respon|se%:=res|
|00004440| 70 6f 6e 73 65 25 2d 32 | 0d 03 77 2e dd f2 57 69 |ponse%-2|..w...Wi|
|00004450| 6d 70 5f 57 69 6e 64 6f | 77 46 6f 72 63 65 44 72 |mp_Windo|wForceDr|
|00004460| 61 77 28 77 69 6e 64 6f | 77 25 29 3a c8 8e 77 69 |aw(windo|w%):..wi|
|00004470| 6e 64 6f 77 25 ca 0d 03 | 79 25 c9 2d 31 3a c8 99 |ndow%...|y%.-1:..|
|00004480| 32 36 32 33 35 33 2c 2d | 31 2c 30 2c 30 2c 32 2a |262353,-|1,0,0,2*|
|00004490| 31 32 38 30 2c 32 2a 31 | 30 32 34 0d 03 7a 29 7f |1280,2*1|024..z).|
|000044a0| 3a c8 99 32 36 32 33 35 | 33 2c 77 69 6e 64 6f 77 |:..26235|3,window|
|000044b0| 25 2c 30 2c 2d 32 2a 31 | 30 32 34 2c 32 2a 31 32 |%,0,-2*1|024,2*12|
|000044c0| 38 30 2c 30 0d 03 7b 07 | cb 3a e1 0d 03 7e b3 dd |80,0..{.|.:...~..|
|000044d0| f2 57 69 6d 70 5f 53 65 | 74 45 76 65 6e 74 56 61 |.Wimp_Se|tEventVa|
|000044e0| 72 69 61 62 6c 65 73 3a | de 70 6f 69 6e 74 65 72 |riables:|.pointer|
|000044f0| 5f 62 6c 6f 63 6b 25 20 | 32 30 3a 69 6e 74 65 72 |_block% |20:inter|
|00004500| 66 61 63 65 25 3d a3 3a | 6e 75 6c 6c 25 3d 31 3a |face%=.:|null%=1:|
|00004510| 64 72 61 77 25 3d 32 3a | 70 6f 69 6e 74 65 72 5f |draw%=2:|pointer_|
|00004520| 6c 65 61 76 69 6e 67 25 | 3d 31 3c 3c 34 3a 70 6f |leaving%|=1<<4:po|
|00004530| 69 6e 74 65 72 5f 65 6e | 74 65 72 69 6e 67 25 3d |inter_en|tering%=|
|00004540| 31 3c 3c 35 3a 6d 6f 75 | 73 65 25 3d 31 3c 3c 36 |1<<5:mou|se%=1<<6|
|00004550| 3a 64 72 61 67 25 3d 31 | 3c 3c 37 3a 6b 65 79 25 |:drag%=1|<<7:key%|
|00004560| 3d 31 3c 3c 38 3a 6d 65 | 6e 75 25 3d 31 3c 3c 39 |=1<<8:me|nu%=1<<9|
|00004570| 3a 73 63 72 6f 6c 6c 25 | 3d 31 3c 3c 31 30 0d 03 |:scroll%|=1<<10..|
|00004580| 84 d9 6c 6f 73 65 5f 63 | 61 72 65 74 25 3d 31 3c |..lose_c|aret%=1<|
|00004590| 3c 31 31 3a 67 61 69 6e | 5f 63 61 72 65 74 25 3d |<11:gain|_caret%=|
|000045a0| 31 3c 3c 31 32 3a 6d 65 | 73 73 61 67 65 25 3d 28 |1<<12:me|ssage%=(|
|000045b0| 31 3c 3c 31 37 29 2b 28 | 31 3c 3c 31 38 29 3a 72 |1<<17)+(|1<<18):r|
|000045c0| 65 63 6f 72 64 65 72 25 | 3d 31 3c 3c 31 38 3a 61 |ecorder%|=1<<18:a|
|000045d0| 63 6b 6e 6f 77 6c 65 64 | 67 65 25 3d 31 3c 3c 31 |cknowled|ge%=1<<1|
|000045e0| 39 3a 77 69 6e 64 6f 77 | 25 3d 30 3a 73 70 72 69 |9:window|%=0:spri|
|000045f0| 74 65 73 25 3d 31 3a 76 | 65 72 73 69 6f 6e 25 3d |tes%=1:v|ersion%=|
|00004600| 30 3a 74 61 73 6b 25 3d | 30 3a 42 61 72 5f 57 69 |0:task%=|0:Bar_Wi|
|00004610| 6e 64 6f 77 25 3d 2d 32 | 3a 42 61 72 5f 49 63 6f |ndow%=-2|:Bar_Ico|
|00004620| 6e 25 3d 30 3a 42 61 72 | 5f 4d 65 6e 75 25 3d 30 |n%=0:Bar|_Menu%=0|
|00004630| 3a 78 5f 6f 72 69 67 69 | 6e 25 3d 30 3a 79 5f 6f |:x_origi|n%=0:y_o|
|00004640| 72 69 67 69 6e 25 3d 30 | 3a 53 61 76 65 57 69 6e |rigin%=0|:SaveWin|
|00004650| 64 6f 77 25 3d 2d 33 0d | 03 89 6e 6d 65 73 73 61 |dow%=-3.|..nmessa|
|00004660| 67 65 5f 71 75 69 74 25 | 3d 30 3a 6d 65 73 73 61 |ge_quit%|=0:messa|
|00004670| 67 65 5f 73 61 76 65 25 | 3d 32 3a 6d 65 73 73 61 |ge_save%|=2:messa|
|00004680| 67 65 5f 6c 6f 61 64 25 | 3d 33 3a 6d 6f 75 73 65 |ge_load%|=3:mouse|
|00004690| 5f 62 75 74 74 6f 6e 25 | 3d 32 3a 73 61 76 65 5f |_button%|=2:save_|
|000046a0| 65 76 65 6e 74 25 3d 30 | 3a 74 6f 70 5f 6c 69 6e |event%=0|:top_lin|
|000046b0| 65 25 3d 30 3a 62 6f 74 | 74 6f 6d 5f 6c 69 6e 65 |e%=0:bot|tom_line|
|000046c0| 25 3d 30 3a e1 0d 03 8e | 1b dd f2 57 69 6d 70 5f |%=0:....|...Wimp_|
|000046d0| 45 72 72 6f 72 3a ea 58 | 24 2c 78 25 3a ee 85 87 |Error:.X|$,x%:...|
|000046e0| 0d 03 91 cf 78 25 3d 9e | 3a 58 24 3d f6 24 2b 22 |....x%=.|:X$=.$+"|
|000046f0| 61 74 6c 69 6e 65 22 2b | c3 28 78 25 81 31 30 29 |atline"+|.(x%.10)|
|00004700| 3a de 45 72 72 6f 72 4d | 73 67 25 33 36 3a 45 72 |:.ErrorM|sg%36:Er|
|00004710| 72 6f 72 4d 73 67 25 21 | 30 3d 33 36 3a 45 72 72 |rorMsg%!|0=36:Err|
|00004720| 6f 72 4d 73 67 25 21 31 | 32 3d 30 3a 45 72 72 6f |orMsg%!1|2=0:Erro|
|00004730| 72 4d 73 67 25 21 31 36 | 3d 26 38 31 30 38 30 3a |rMsg%!16|=&81080:|
|00004740| 45 72 72 6f 72 4d 73 67 | 25 21 32 30 3d 78 25 3a |ErrorMsg|%!20=x%:|
|00004750| 24 28 45 72 72 6f 72 4d | 73 67 25 2b 32 34 29 3d |$(ErrorM|sg%+24)=|
|00004760| 22 21 52 75 6e 49 6d 61 | 67 65 22 3a c8 99 32 36 |"!RunIma|ge":..26|
|00004770| 32 33 37 35 2c 31 37 2c | 45 72 72 6f 72 4d 73 67 |2375,17,|ErrorMsg|
|00004780| 25 3a f2 57 69 6d 70 5f | 57 69 6e 64 6f 77 41 6c |%:.Wimp_|WindowAl|
|00004790| 65 72 74 28 74 61 73 6b | 24 2c 58 24 29 3a f2 57 |ert(task|$,X$):.W|
|000047a0| 69 6d 70 5f 43 6c 6f 73 | 65 44 6f 77 6e 3a e1 0d |imp_Clos|eDown:..|
|000047b0| 03 9b a8 dd f2 57 69 6d | 70 5f 50 6f 6c 6c 44 72 |.....Wim|p_PollDr|
|000047c0| 61 77 57 69 6e 64 6f 77 | 3a ea 6d 6f 72 65 25 3a |awWindow|:.more%:|
|000047d0| c8 99 32 36 32 33 34 34 | 2c 2c 77 69 6d 70 25 b8 |..262344|,,wimp%.|
|000047e0| 6d 6f 72 65 25 3a 77 69 | 6e 64 6f 77 25 3d 77 69 |more%:wi|ndow%=wi|
|000047f0| 6d 70 25 21 30 3a 78 5f | 6f 72 69 67 69 6e 25 3d |mp%!0:x_|origin%=|
|00004800| 31 36 2b 77 69 6d 70 25 | 21 34 2d 77 69 6d 70 25 |16+wimp%|!4-wimp%|
|00004810| 21 32 30 3a 79 5f 6f 72 | 69 67 69 6e 25 3d 2d 31 |!20:y_or|igin%=-1|
|00004820| 36 2b 77 69 6d 70 25 21 | 31 36 2d 77 69 6d 70 25 |6+wimp%!|16-wimp%|
|00004830| 21 32 34 3a c8 95 6d 6f | 72 65 25 3a e7 69 6e 74 |!24:..mo|re%:.int|
|00004840| 65 72 66 61 63 65 25 8c | c8 99 35 33 30 30 34 39 |erface%.|..530049|
|00004850| 2c 2c 77 69 6d 70 25 0d | 03 a2 46 f2 45 76 65 6e |,,wimp%.|..F.Even|
|00004860| 74 5f 44 72 61 77 28 77 | 69 6e 64 6f 77 25 2c 78 |t_Draw(w|indow%,x|
|00004870| 5f 6f 72 69 67 69 6e 25 | 2c 79 5f 6f 72 69 67 69 |_origin%|,y_origi|
|00004880| 6e 25 29 3a c8 99 32 36 | 32 33 34 36 2c 2c 77 69 |n%):..26|2346,,wi|
|00004890| 6d 70 25 b8 6d 6f 72 65 | 25 3a ce 3a e1 0d 03 a7 |mp%.more|%:.:....|
|000048a0| 92 dd f2 57 69 6d 70 5f | 50 6f 6c 6c 43 6c 6f 73 |...Wimp_|PollClos|
|000048b0| 65 57 69 6e 64 6f 77 3a | c8 99 32 36 32 33 35 31 |eWindow:|..262351|
|000048c0| 2c 2c 77 69 6d 70 25 3a | 77 69 6e 64 6f 77 25 3d |,,wimp%:|window%=|
|000048d0| 77 69 6d 70 25 21 31 32 | 3a 62 75 74 74 6f 6e 73 |wimp%!12|:buttons|
|000048e0| 25 3d 77 69 6d 70 25 21 | 38 3a f2 45 76 65 6e 74 |%=wimp%!|8:.Event|
|000048f0| 5f 57 69 6e 64 6f 77 43 | 6c 6f 73 65 28 77 69 6e |_WindowC|lose(win|
|00004900| 64 6f 77 25 2c 62 75 74 | 74 6f 6e 73 25 29 3a 21 |dow%,but|tons%):!|
|00004910| 77 69 6d 70 25 3d 77 69 | 6e 64 6f 77 25 3a c8 99 |wimp%=wi|ndow%:..|
|00004920| 32 36 32 33 34 32 2c 2c | 77 69 6d 70 25 3a e1 0d |262342,,|wimp%:..|
|00004930| 03 ae 6a dd f2 57 69 6d | 70 5f 50 6f 6c 6c 4d 6f |..j..Wim|p_PollMo|
|00004940| 75 73 65 43 6c 69 63 6b | 3a 62 75 74 74 6f 6e 25 |useClick|:button%|
|00004950| 3d 77 69 6d 70 25 21 38 | 3a 77 69 6e 64 6f 77 25 |=wimp%!8|:window%|
|00004960| 3d 77 69 6d 70 25 21 31 | 32 3a 69 63 6f 6e 25 3d |=wimp%!1|2:icon%=|
|00004970| 77 69 6d 70 25 21 31 36 | 3a 78 25 3d 77 69 6d 70 |wimp%!16|:x%=wimp|
|00004980| 25 21 30 3a 79 25 3d 77 | 69 6d 70 25 21 34 3a c8 |%!0:y%=w|imp%!4:.|
|00004990| 8e 62 75 74 74 6f 6e 25 | ca 0d 03 b1 1a c9 32 3a |.button%|......2:|
|000049a0| f2 57 69 6d 70 5f 50 6f | 6c 6c 4d 65 6e 75 50 6f |.Wimp_Po|llMenuPo|
|000049b0| 70 55 70 0d 03 b2 1d 7f | 3a c8 8e a4 45 76 65 6e |pUp.....|:...Even|
|000049c0| 74 5f 53 61 76 65 28 77 | 69 6e 64 6f 77 25 29 ca |t_Save(w|indow%).|
|000049d0| 0d 03 b3 1a c9 b9 3a f2 | 57 69 6d 70 5f 50 6f 6c |......:.|Wimp_Pol|
|000049e0| 6c 4d 6f 75 73 65 53 61 | 76 65 0d 03 b4 20 c9 a3 |lMouseSa|ve... ..|
|000049f0| 3a f2 57 69 6d 70 5f 50 | 6f 6c 6c 45 76 65 6e 74 |:.Wimp_P|ollEvent|
|00004a00| 4d 6f 75 73 65 43 6c 69 | 63 6b 0d 03 b5 05 cb 0d |MouseCli|ck......|
|00004a10| 03 b6 07 cb 3a e1 0d 03 | b9 dc dd f2 57 69 6d 70 |....:...|....Wimp|
|00004a20| 5f 50 6f 6c 6c 53 61 76 | 65 4d 65 73 73 61 67 65 |_PollSav|eMessage|
|00004a30| 3a ea 66 69 6c 65 24 2c | 77 69 6e 64 6f 77 25 2c |:.file$,|window%,|
|00004a40| 69 63 6f 6e 25 2c 78 25 | 2c 79 25 3a c8 99 32 36 |icon%,x%|,y%:..26|
|00004a50| 32 33 35 31 2c 2c 77 69 | 6d 70 25 3a 77 69 6e 64 |2351,,wi|mp%:wind|
|00004a60| 6f 77 25 3d 77 69 6d 70 | 25 21 31 32 3a 69 63 6f |ow%=wimp|%!12:ico|
|00004a70| 6e 25 3d 77 69 6d 70 25 | 21 31 36 3a 78 25 3d 77 |n%=wimp%|!16:x%=w|
|00004a80| 69 6d 70 25 21 30 3a 79 | 25 3d 77 69 6d 70 25 21 |imp%!0:y|%=wimp%!|
|00004a90| 34 3a 77 69 6d 70 25 21 | 30 3d 73 61 76 65 25 3a |4:wimp%!|0=save%:|
|00004aa0| 77 69 6d 70 25 21 34 3d | 31 3a c8 99 32 36 32 33 |wimp%!4=|1:..2623|
|00004ab0| 35 30 2c 2c 77 69 6d 70 | 25 3a 66 69 6c 65 24 3d |50,,wimp|%:file$=|
|00004ac0| 24 28 77 69 6d 70 25 21 | 32 38 29 3a 66 69 6c 65 |$(wimp%!|28):file|
|00004ad0| 24 3d a4 57 69 6d 70 5f | 47 65 74 46 69 6c 65 46 |$=.Wimp_|GetFileF|
|00004ae0| 72 6f 6d 50 61 74 68 6e | 61 6d 65 28 66 69 6c 65 |romPathn|ame(file|
|00004af0| 24 29 0d 03 c0 b3 77 69 | 6d 70 25 21 32 30 3d 77 |$)....wi|mp%!20=w|
|00004b00| 69 6e 64 6f 77 25 3a 77 | 69 6d 70 25 21 32 34 3d |indow%:w|imp%!24=|
|00004b10| 69 63 6f 6e 25 3a 77 69 | 6d 70 25 21 32 38 3d 78 |icon%:wi|mp%!28=x|
|00004b20| 25 3a 77 69 6d 70 25 21 | 33 32 3d 79 25 3a 77 69 |%:wimp%!|32=y%:wi|
|00004b30| 6d 70 25 21 33 36 3d 6c | 65 6e 67 74 68 25 3a 77 |mp%!36=l|ength%:w|
|00004b40| 69 6d 70 25 21 30 3d 36 | 34 3a 77 69 6d 70 25 21 |imp%!0=6|4:wimp%!|
|00004b50| 31 32 3d 30 3a 77 69 6d | 70 25 21 31 36 3d 31 3a |12=0:wim|p%!16=1:|
|00004b60| 77 69 6d 70 25 21 34 30 | 3d 26 46 46 46 3a 24 28 |wimp%!40|=&FFF:$(|
|00004b70| 77 69 6d 70 25 2b 34 34 | 29 3d 66 69 6c 65 24 3a |wimp%+44|)=file$:|
|00004b80| c8 99 32 36 32 33 37 35 | 2c 31 37 2c 77 69 6d 70 |..262375|,17,wimp|
|00004b90| 25 2c 77 69 6d 70 25 21 | 32 30 2c 77 69 6d 70 25 |%,wimp%!|20,wimp%|
|00004ba0| 21 32 34 3a e1 0d 03 cc | 5b dd f2 57 69 6d 70 5f |!24:....|[..Wimp_|
|00004bb0| 50 6f 6c 6c 4b 65 79 50 | 72 65 73 73 3a 77 69 6e |PollKeyP|ress:win|
|00004bc0| 64 6f 77 25 3d 77 69 6d | 70 25 21 30 3a 69 63 6f |dow%=wim|p%!0:ico|
|00004bd0| 6e 25 3d 77 69 6d 70 25 | 21 34 3a 6b 65 79 25 3d |n%=wimp%|!4:key%=|
|00004be0| 77 69 6d 70 25 21 32 34 | 3a c8 8e a4 45 76 65 6e |wimp%!24|:...Even|
|00004bf0| 74 5f 53 61 76 65 28 77 | 69 6e 64 6f 77 25 29 ca |t_Save(w|indow%).|
|00004c00| 0d 03 cf 22 c9 b9 3a f2 | 57 69 6d 70 50 6f 6c 6c |..."..:.|WimpPoll|
|00004c10| 5f 53 61 76 65 46 69 6c | 65 28 77 69 6e 64 6f 77 |_SaveFil|e(window|
|00004c20| 25 29 0d 03 d0 2a c9 a3 | 3a f2 45 76 65 6e 74 5f |%)...*..|:.Event_|
|00004c30| 4b 65 79 50 72 65 73 73 | 28 77 69 6e 64 6f 77 25 |KeyPress|(window%|
|00004c40| 2c 69 63 6f 6e 25 2c 6b | 65 79 25 29 0d 03 d1 07 |,icon%,k|ey%)....|
|00004c50| cb 3a e1 0d 03 d4 53 dd | f2 57 69 6d 70 5f 50 6f |.:....S.|.Wimp_Po|
|00004c60| 6c 6c 4d 65 73 73 61 67 | 65 73 3a ea 66 69 6c 65 |llMessag|es:.file|
|00004c70| 24 3a 66 69 6c 65 24 3d | a4 57 69 6d 70 5f 47 65 |$:file$=|.Wimp_Ge|
|00004c80| 74 53 74 72 69 6e 67 41 | 74 41 64 64 72 65 73 73 |tStringA|tAddress|
|00004c90| 28 77 69 6d 70 25 2b 34 | 34 29 3a c8 8e 77 69 6d |(wimp%+4|4):..wim|
|00004ca0| 70 25 21 31 36 ca 0d 03 | d8 12 c9 30 3a 66 69 6e |p%!16...|...0:fin|
|00004cb0| 69 73 68 65 64 25 3d b9 | 0d 03 d9 06 c9 31 0d 03 |ished%=.|.....1..|
|00004cc0| da b7 c9 32 3a 77 69 6d | 70 25 21 30 3d 73 61 76 |...2:wim|p%!0=sav|
|00004cd0| 65 25 3a 77 69 6d 70 25 | 21 34 3d 31 3a c8 99 32 |e%:wimp%|!4=1:..2|
|00004ce0| 36 32 33 35 30 2c 2c 77 | 69 6d 70 25 3a 24 28 77 |62350,,w|imp%:$(w|
|00004cf0| 69 6d 70 25 21 32 38 29 | 3d 66 69 6c 65 24 3a 77 |imp%!28)|=file$:w|
|00004d00| 69 6d 70 25 21 30 3d 73 | 61 76 65 25 3a 77 69 6d |imp%!0=s|ave%:wim|
|00004d10| 70 25 21 34 3d 31 3a 77 | 69 6d 70 25 21 38 3d 30 |p%!4=1:w|imp%!8=0|
|00004d20| 3a 77 69 6d 70 25 21 31 | 32 3d 30 3a c8 99 32 36 |:wimp%!1|2=0:..26|
|00004d30| 32 33 34 39 2c 2c 77 69 | 6d 70 25 3a c8 99 32 36 |2349,,wi|mp%:..26|
|00004d40| 32 33 35 34 2c 73 61 76 | 65 25 2c 31 2c 2c 2c 2d |2354,sav|e%,1,,,-|
|00004d50| 31 2c a9 66 69 6c 65 24 | 3a f2 45 76 65 6e 74 5f |1,.file$|:.Event_|
|00004d60| 53 61 76 65 46 69 6c 65 | 28 66 69 6c 65 24 2c 73 |SaveFile|(file$,s|
|00004d70| 61 76 65 25 29 0d 03 e3 | 42 c9 33 3a 74 79 70 65 |ave%)...|B.3:type|
|00004d80| 24 3d a4 57 69 6d 70 5f | 46 69 6c 65 54 79 70 65 |$=.Wimp_|FileType|
|00004d90| 28 77 69 6d 70 25 21 34 | 30 29 3a f2 45 76 65 6e |(wimp%!4|0):.Even|
|00004da0| 74 5f 4c 6f 61 64 46 69 | 6c 65 28 66 69 6c 65 24 |t_LoadFi|le(file$|
|00004db0| 2c 74 79 70 65 24 29 0d | 03 e5 07 cb 3a e1 0d 03 |,type$).|....:...|
|00004dc0| e8 9c dd a4 57 69 6d 70 | 5f 57 69 6e 64 6f 77 4c |....Wimp|_WindowL|
|00004dd0| 6f 61 64 46 72 6f 6d 28 | 77 69 6e 64 6f 77 24 2c |oadFrom(|window$,|
|00004de0| 74 65 6d 70 6c 61 74 65 | 24 29 3a ea 63 25 2c 69 |template|$):.c%,i|
|00004df0| 25 2c 6e 25 2c 6a 25 2c | 73 70 24 2c 73 70 32 24 |%,n%,j%,|sp$,sp2$|
|00004e00| 3a c8 99 32 36 32 33 36 | 31 2c 2c 74 65 6d 70 6c |:..26236|1,,templ|
|00004e10| 61 74 65 24 3a c8 99 32 | 36 32 33 36 33 2c 2c 77 |ate$:..2|62363,,w|
|00004e20| 69 6d 70 25 2c 69 63 6f | 6e 73 25 2c 69 63 6f 6e |imp%,ico|ns%,icon|
|00004e30| 5f 6d 65 6d 6f 72 79 25 | 2c 2d 31 2c 77 69 6e 64 |_memory%|,-1,wind|
|00004e40| 6f 77 24 2c 30 b8 2c 2c | 69 63 6f 6e 73 25 3a c8 |ow$,0.,,|icons%:.|
|00004e50| 8e 73 70 72 69 74 65 73 | 25 ca 0d 03 ed 18 c9 31 |.sprites|%......1|
|00004e60| 3a 77 69 6d 70 25 21 36 | 34 3d 73 70 72 69 74 65 |:wimp%!6|4=sprite|
|00004e70| 73 25 0d 03 ee 26 7f 3a | 77 69 6d 70 25 21 36 34 |s%...&.:|wimp%!64|
|00004e80| 3d a4 45 76 65 6e 74 5f | 53 70 72 69 74 65 73 28 |=.Event_|Sprites(|
|00004e90| 77 69 6e 64 6f 77 25 29 | 0d 03 ef 56 cb 3a c8 99 |window%)|...V.:..|
|00004ea0| 32 36 32 33 33 37 2c 2c | 77 69 6d 70 25 b8 63 25 |262337,,|wimp%.c%|
|00004eb0| 3a c8 99 32 36 32 33 36 | 32 3a c8 99 32 36 32 33 |:..26236|2:..2623|
|00004ec0| 35 38 2c 63 25 2c 77 69 | 6d 70 25 2b 34 30 2c 31 |58,c%,wi|mp%+40,1|
|00004ed0| 2b 32 2b 28 31 3c 3c 38 | 29 2c 32 2b 28 31 3c 3c |+2+(1<<8|),2+(1<<|
|00004ee0| 38 29 3a c8 8e 77 69 6d | 70 25 21 34 30 ca 0d 03 |8):..wim|p%!40...|
|00004ef0| f4 07 c9 2d 31 0d 03 f5 | 7c 7f 3a 69 25 3d 34 30 |...-1...||.:i%=40|
|00004f00| 3a f5 3a 77 69 6d 70 25 | 21 34 3d 77 69 6d 70 25 |:.:wimp%|!4=wimp%|
|00004f10| 21 69 25 3a 77 69 6d 70 | 25 21 30 3d 63 25 3a c8 |!i%:wimp|%!0=c%:.|
|00004f20| 99 32 36 32 33 35 30 2c | 2c 77 69 6d 70 25 3a 73 |.262350,|,wimp%:s|
|00004f30| 70 24 3d a4 57 69 6d 70 | 5f 47 65 74 53 74 72 69 |p$=.Wimp|_GetStri|
|00004f40| 6e 67 41 74 41 64 64 72 | 65 73 73 28 77 69 6d 70 |ngAtAddr|ess(wimp|
|00004f50| 25 21 32 38 29 3a c8 99 | 32 36 32 33 34 30 2c 2c |%!28):..|262340,,|
|00004f60| 77 69 6d 70 25 3a c8 8e | 73 70 72 69 74 65 73 25 |wimp%:..|sprites%|
|00004f70| ca 0d 03 fc 11 c9 31 3a | 77 69 6d 70 25 21 33 32 |......1:|wimp%!32|
|00004f80| 3d 31 0d 03 fd b8 7f 3a | c8 99 34 36 2c 26 31 30 |=1.....:|..46,&10|
|00004f90| 38 2c 73 70 72 69 74 65 | 73 25 b8 2c 2c 2c 6e 25 |8,sprite|s%.,,,n%|
|00004fa0| 3a 6a 25 3d 30 3a f5 3a | 6a 25 2b 3d 31 3a c8 99 |:j%=0:.:|j%+=1:..|
|00004fb0| 34 36 2c 26 31 30 44 2c | 73 70 72 69 74 65 73 25 |46,&10D,|sprites%|
|00004fc0| 2c 70 6f 69 6e 74 65 72 | 5f 62 6c 6f 63 6b 25 2c |,pointer|_block%,|
|00004fd0| 32 30 2c 6a 25 3a 73 70 | 32 24 3d a4 57 69 6d 70 |20,j%:sp|2$=.Wimp|
|00004fe0| 5f 47 65 74 53 74 72 69 | 6e 67 41 74 41 64 64 72 |_GetStri|ngAtAddr|
|00004ff0| 65 73 73 28 70 6f 69 6e | 74 65 72 5f 62 6c 6f 63 |ess(poin|ter_bloc|
|00005000| 6b 25 29 3a fd 6a 25 3d | 6e 25 84 73 70 24 3d 73 |k%):.j%=|n%.sp$=s|
|00005010| 70 32 24 3a e7 73 70 24 | 3d 73 70 32 24 8c 77 69 |p2$:.sp$|=sp2$.wi|
|00005020| 6d 70 25 21 33 32 3d 73 | 70 72 69 74 65 73 25 8b |mp%!32=s|prites%.|
|00005030| 77 69 6d 70 25 21 33 32 | 3d 31 0d 04 05 3f cb 3a |wimp%!32|=1...?.:|
|00005040| 77 69 6d 70 25 21 34 3d | 63 25 3a c8 99 32 36 32 |wimp%!4=|c%:..262|
|00005050| 33 33 38 2c 2c 77 69 6d | 70 25 2b 34 b8 68 61 6e |338,,wim|p%+4.han|
|00005060| 64 6c 65 25 3a 69 25 2b | 3d 34 3a fd 28 77 69 6d |dle%:i%+|=4:.(wim|
|00005070| 70 25 21 69 25 29 3d 2d | 31 0d 04 0a 09 cb 3a 3d |p%!i%)=-|1.....:=|
|00005080| 63 25 0d 04 0d 34 dd a4 | 57 69 6d 70 5f 4d 65 6e |c%...4..|Wimp_Men|
|00005090| 75 43 6f 6c 6f 75 72 73 | 3a 3d a4 57 69 6d 70 5f |uColours|:=.Wimp_|
|000050a0| 4d 65 6e 75 43 72 65 61 | 74 65 43 6f 6c 6f 75 72 |MenuCrea|teColour|
|000050b0| 73 28 22 20 22 29 0d 04 | 10 55 dd a4 57 69 6d 70 |s(" ")..|.U..Wimp|
|000050c0| 5f 4d 65 6e 75 4e 6f 4f | 66 45 6e 74 72 69 65 73 |_MenuNoO|fEntries|
|000050d0| 28 6d 65 6e 75 24 29 3a | ea 6e 25 2c 6a 25 3a 6e |(menu$):|.n%,j%:n|
|000050e0| 25 3d 30 3a 6a 25 3d 30 | 3a f5 3a 6a 25 3d a7 6d |%=0:j%=0|:.:j%=.m|
|000050f0| 65 6e 75 24 2c 22 5c 22 | 2c 6a 25 2b 31 29 3a e7 |enu$,"\"|,j%+1):.|
|00005100| 6a 25 3c 3e 30 8c 6e 25 | 2b 3d 31 0d 04 15 0d fd |j%<>0.n%|+=1.....|
|00005110| 6a 25 3d 30 3a 3d 6e 25 | 0d 04 18 5c dd f2 57 69 |j%=0:=n%|...\..Wi|
|00005120| 6d 70 5f 57 69 6e 64 6f | 77 41 6c 65 72 74 42 6f |mp_Windo|wAlertBo|
|00005130| 78 28 74 69 74 6c 65 24 | 2c 6d 65 73 73 61 67 65 |x(title$|,message|
|00005140| 24 2c 62 75 74 74 6f 6e | 25 29 3a ea 72 65 73 70 |$,button|%):.resp|
|00005150| 6f 6e 73 65 25 3a 24 28 | 77 69 6d 70 25 2b 34 29 |onse%:$(|wimp%+4)|
|00005160| 3d 6d 65 73 73 61 67 65 | 24 3a c8 8e 62 75 74 74 |=message|$:..butt|
|00005170| 6f 6e 25 ca 0d 04 1c 12 | c9 32 3a 72 65 73 70 6f |on%.....|.2:respo|
|00005180| 6e 73 65 25 3d 31 0d 04 | 1d 13 c9 31 3a 72 65 73 |nse%=1..|...1:res|
|00005190| 70 6f 6e 73 65 25 3d 31 | 35 0d 04 1e 1a c9 33 3a |ponse%=1|5.....3:|
|000051a0| 72 65 73 70 6f 6e 73 65 | 25 3d 28 31 3c 3c 35 29 |response|%=(1<<5)|
|000051b0| 2b 31 36 0d 04 1f 1a c9 | 34 3a 72 65 73 70 6f 6e |+16.....|4:respon|
|000051c0| 73 65 25 3d 28 31 3c 3c | 36 29 2b 31 36 0d 04 20 |se%=(1<<|6)+16.. |
|000051d0| 12 7f 3a 72 65 73 70 6f | 6e 73 65 25 3d 31 36 0d |..:respo|nse%=16.|
|000051e0| 04 21 32 cb 3a c8 99 32 | 36 32 33 36 37 2c 77 69 |.!2.:..2|62367,wi|
|000051f0| 6d 70 25 2c 72 65 73 70 | 6f 6e 73 65 25 2c 74 69 |mp%,resp|onse%,ti|
|00005200| 74 6c 65 24 b8 2c 72 65 | 73 70 6f 6e 73 65 25 3a |tle$.,re|sponse%:|
|00005210| e1 0d 04 25 51 dd f2 57 | 69 6d 70 5f 57 69 6e 64 |...%Q..W|imp_Wind|
|00005220| 6f 77 41 6c 65 72 74 28 | 74 69 74 6c 65 24 2c 6d |owAlert(|title$,m|
|00005230| 65 73 73 61 67 65 24 29 | 3a f2 57 69 6d 70 5f 57 |essage$)|:.Wimp_W|
|00005240| 69 6e 64 6f 77 41 6c 65 | 72 74 42 6f 78 28 74 69 |indowAle|rtBox(ti|
|00005250| 74 6c 65 24 2c 6d 65 73 | 73 61 67 65 24 2c 30 29 |tle$,mes|sage$,0)|
|00005260| 3a e1 0d 04 29 3c dd f2 | 57 69 6d 70 5f 50 6f 6c |:...)<..|Wimp_Pol|
|00005270| 6c 4d 65 6e 75 50 6f 70 | 55 70 3a 6d 65 6e 75 25 |lMenuPop|Up:menu%|
|00005280| 3d a4 45 76 65 6e 74 5f | 4d 65 6e 75 28 77 69 6e |=.Event_|Menu(win|
|00005290| 64 6f 77 25 29 3a c8 8e | 6d 65 6e 75 25 ca 0d 04 |dow%):..|menu%...|
|000052a0| 2c 06 c9 a3 0d 04 2d 10 | 7f 3a c8 8e 77 69 6e 64 |,.....-.|.:..wind|
|000052b0| 6f 77 25 ca 0d 04 2f 5e | c9 2d 32 3a 6e 25 3d 30 |ow%.../^|.-2:n%=0|
|000052c0| 3a c8 95 28 28 42 61 72 | 5f 4d 65 6e 75 25 21 28 |:..((Bar|_Menu%!(|
|000052d0| 32 38 2b 6e 25 2a 32 34 | 29 29 80 25 31 30 30 30 |28+n%*24|)).%1000|
|000052e0| 30 30 30 30 29 3d 30 3a | 6e 25 2b 3d 31 3a ce 3a |0000)=0:|n%+=1:.:|
|000052f0| c8 99 32 36 32 33 35 36 | 2c 2c 42 61 72 5f 4d 65 |..262356|,,Bar_Me|
|00005300| 6e 75 25 2c 78 25 2d 36 | 34 2c 39 36 2b 6e 25 2a |nu%,x%-6|4,96+n%*|
|00005310| 34 34 0d 04 34 21 7f 3a | c8 99 32 36 32 33 35 36 |44..4!.:|..262356|
|00005320| 2c 2c 6d 65 6e 75 25 2c | 78 25 2d 36 34 2c 79 25 |,,menu%,|x%-64,y%|
|00005330| 2b 32 30 0d 04 35 05 cb | 0d 04 36 07 cb 3a e1 0d |+20..5..|..6..:..|
|00005340| 04 39 21 dd f2 57 69 6d | 70 5f 50 6f 6c 6c 4d 6f |.9!..Wim|p_PollMo|
|00005350| 75 73 65 53 61 76 65 3a | c8 8e 69 63 6f 6e 25 ca |useSave:|..icon%.|
|00005360| 0d 04 3b 2e c9 30 3a e7 | 62 75 74 74 6f 6e 25 80 |..;..0:.|button%.|
|00005370| 26 35 30 8c f2 57 69 6d | 70 5f 50 6f 6c 6c 44 72 |&50..Wim|p_PollDr|
|00005380| 61 67 42 6f 78 28 77 69 | 6e 64 6f 77 25 29 0d 04 |agBox(wi|ndow%)..|
|00005390| 3c 2d c9 32 3a e7 62 75 | 74 74 6f 6e 25 80 35 8c |<-.2:.bu|tton%.5.|
|000053a0| f2 57 69 6d 70 5f 50 6f | 6c 6c 53 61 76 65 46 69 |.Wimp_Po|llSaveFi|
|000053b0| 6c 65 28 77 69 6e 64 6f | 77 25 29 0d 04 3d 07 cb |le(windo|w%)..=..|
|000053c0| 3a e1 0d 04 40 3a dd f2 | 57 69 6d 70 5f 50 6f 6c |:...@:..|Wimp_Pol|
|000053d0| 6c 45 76 65 6e 74 4d 6f | 75 73 65 43 6c 69 63 6b |lEventMo|useClick|
|000053e0| 3a e7 69 6e 74 65 72 66 | 61 63 65 25 8c c8 99 35 |:.interf|ace%...5|
|000053f0| 33 30 30 34 38 2c 2c 77 | 69 6d 70 25 0d 04 42 40 |30048,,w|imp%..B@|
|00005400| f2 45 76 65 6e 74 5f 4d | 6f 75 73 65 43 6c 69 63 |.Event_M|ouseClic|
|00005410| 6b 28 77 69 6e 64 6f 77 | 25 2c 69 63 6f 6e 25 2c |k(window|%,icon%,|
|00005420| 62 75 74 74 6f 6e 25 2c | 78 25 2c 79 25 29 3a c8 |button%,|x%,y%):.|
|00005430| 8e 69 6e 74 65 72 66 61 | 63 65 25 ca 0d 04 44 56 |.interfa|ce%...DV|
|00005440| c9 b9 3a 77 69 6d 70 25 | 21 30 3d 78 25 3a 77 69 |..:wimp%|!0=x%:wi|
|00005450| 6d 70 25 21 34 3d 79 25 | 3a 77 69 6d 70 25 21 38 |mp%!4=y%|:wimp%!8|
|00005460| 3d 30 3a 77 69 6d 70 25 | 21 31 32 3d 77 69 6e 64 |=0:wimp%|!12=wind|
|00005470| 6f 77 25 3a 77 69 6d 70 | 25 21 31 36 3d 69 63 6f |ow%:wimp|%!16=ico|
|00005480| 6e 25 3a c8 99 35 33 30 | 30 34 38 2c 2c 77 69 6d |n%:..530|048,,wim|
|00005490| 70 25 0d 04 48 07 cb 3a | e1 0d 04 4b 2e dd a4 57 |p%..H..:|...K...W|
|000054a0| 69 6d 70 5f 47 65 74 46 | 69 6c 65 46 72 6f 6d 50 |imp_GetF|ileFromP|
|000054b0| 61 74 68 6e 61 6d 65 28 | 66 24 29 3a c8 8e a7 66 |athname(|f$):...f|
|000054c0| 24 2c 22 2e 22 29 ca 0d | 04 4d 0a c9 30 3a 3d 66 |$,".")..|.M..0:=f|
|000054d0| 24 0d 04 4e 35 7f 3a 3d | a4 57 69 6d 70 5f 47 65 |$..N5.:=|.Wimp_Ge|
|000054e0| 74 46 69 6c 65 46 72 6f | 6d 50 61 74 68 6e 61 6d |tFileFro|mPathnam|
|000054f0| 65 28 c2 66 24 2c a9 28 | 66 24 29 2d a7 66 24 2c |e(.f$,.(|f$)-.f$,|
|00005500| 22 2e 22 29 29 29 0d 04 | 4f 05 cb 0d 04 51 6b dd |".")))..|O....Qk.|
|00005510| a4 57 69 6d 70 5f 47 65 | 74 53 74 72 69 6e 67 41 |.Wimp_Ge|tStringA|
|00005520| 74 41 64 64 72 65 73 73 | 28 61 72 72 61 79 25 29 |tAddress|(array%)|
|00005530| 3a ea 73 24 3a 73 24 3d | 22 22 3a c8 95 28 3f 61 |:.s$:s$=|"":..(?a|
|00005540| 72 72 61 79 25 3c 3e 31 | 33 29 80 28 3f 61 72 72 |rray%<>1|3).(?arr|
|00005550| 61 79 25 3c 3e 30 29 3a | 73 24 2b 3d bd 28 3f 61 |ay%<>0):|s$+=.(?a|
|00005560| 72 72 61 79 25 29 3a 61 | 72 72 61 79 25 2b 3d 31 |rray%):a|rray%+=1|
|00005570| 3a ce 3a 3d 73 24 0d 04 | 55 23 dd a4 57 69 6d 70 |:.:=s$..|U#..Wimp|
|00005580| 5f 46 69 6c 65 54 79 70 | 65 28 74 79 70 65 25 29 |_FileTyp|e(type%)|
|00005590| 3a c8 8e 74 79 70 65 25 | ca 0d 04 57 11 c9 26 46 |:..type%|...W..&F|
|000055a0| 46 46 3a 3d 22 54 65 78 | 74 22 0d 04 58 11 c9 26 |FF:="Tex|t"..X..&|
|000055b0| 46 46 44 3a 3d 22 44 61 | 74 61 22 0d 04 59 12 c9 |FFD:="Da|ta"..Y..|
|000055c0| 26 46 46 42 3a 3d 22 42 | 61 73 69 63 22 0d 04 5a |&FFB:="B|asic"..Z|
|000055d0| 13 c9 26 46 46 39 3a 3d | 22 53 70 72 69 74 65 22 |..&FF9:=|"Sprite"|
|000055e0| 0d 04 5b 14 c9 26 46 45 | 44 3a 3d 22 50 61 6c 65 |..[..&FE|D:="Pale|
|000055f0| 74 74 65 22 0d 04 5c 15 | c9 26 46 45 43 3a 3d 22 |tte"..\.|.&FEC:="|
|00005600| 54 65 6d 70 6c 61 74 65 | 22 0d 04 5d 11 c9 26 41 |Template|"..]..&A|
|00005610| 46 46 3a 3d 22 44 72 61 | 77 22 0d 04 5e 14 c9 26 |FF:="Dra|w"..^..&|
|00005620| 31 30 30 30 3a 3d 22 46 | 6f 6c 64 65 72 22 0d 04 |1000:="F|older"..|
|00005630| 5f 19 c9 26 32 30 30 30 | 3a 3d 22 41 70 70 6c 69 |_..&2000|:="Appli|
|00005640| 63 61 74 69 6f 6e 22 0d | 04 60 0f 7f 3d c3 7e 28 |cation".|.`..=.~(|
|00005650| 74 79 70 65 25 29 0d 04 | 61 05 cb 0d 04 63 8e dd |type%)..|a....c..|
|00005660| a4 57 69 6d 70 5f 4d 65 | 6e 75 43 72 65 61 74 65 |.Wimp_Me|nuCreate|
|00005670| 43 6f 6c 6f 75 72 73 28 | 74 69 74 6c 65 24 29 3a |Colours(|title$):|
|00005680| ea 78 24 2c 6d 65 6e 25 | 2c 6a 25 2c 69 25 3a 78 |.x$,men%|,j%,i%:x|
|00005690| 24 3d 74 69 74 6c 65 24 | 2b 22 5c 30 5c 31 5c 32 |$=title$|+"\0\1\2|
|000056a0| 5c 33 5c 34 5c 35 5c 36 | 5c 37 5c 38 5c 39 5c 31 |\3\4\5\6|\7\8\9\1|
|000056b0| 30 5c 31 31 5c 31 32 5c | 31 33 5c 31 34 5c 31 35 |0\11\12\|13\14\15|
|000056c0| 22 3a 6d 65 6e 25 3d a4 | 57 69 6d 70 5f 4d 65 6e |":men%=.|Wimp_Men|
|000056d0| 75 43 72 65 61 74 65 28 | 78 24 29 3a e3 69 25 3d |uCreate(|x$):.i%=|
|000056e0| 30 b8 31 35 3a c8 8e b9 | ca 0d 04 69 25 c9 69 25 |0.15:...|...i%.i%|
|000056f0| 3c 34 2c 69 25 3d 39 2c | 69 25 3d 31 32 2c 69 25 |<4,i%=9,|i%=12,i%|
|00005700| 3d 31 34 2c 69 25 3d 31 | 35 3a 6a 25 3d 37 0d 04 |=14,i%=1|5:j%=7..|
|00005710| 6a 0a 7f 3a 6a 25 3d 30 | 0d 04 6b 42 cb 3a 6d 65 |j..:j%=0|..kB.:me|
|00005720| 6e 25 3f 28 33 39 2b 69 | 25 2a 32 34 29 3d 69 25 |n%?(39+i|%*24)=i%|
|00005730| 2a 31 36 2b 6a 25 3a f2 | 57 69 6d 70 5f 4d 65 6e |*16+j%:.|Wimp_Men|
|00005740| 75 43 65 6e 74 72 65 28 | 6d 65 6e 25 2c 69 25 2b |uCentre(|men%,i%+|
|00005750| 31 29 3a ed 3a 3d 6d 65 | 6e 25 0d 04 71 d7 dd f2 |1):.:=me|n%..q...|
|00005760| 57 69 6d 70 5f 50 6f 6c | 6c 44 72 61 67 42 6f 78 |Wimp_Pol|lDragBox|
|00005770| 28 77 69 6e 64 6f 77 25 | 29 3a ea 78 25 2c 79 25 |(window%|):.x%,y%|
|00005780| 3a 73 61 76 65 25 3d 77 | 69 6e 64 6f 77 25 3a 21 |:save%=w|indow%:!|
|00005790| 77 69 6d 70 25 3d 77 69 | 6e 64 6f 77 25 3a c8 99 |wimp%=wi|ndow%:..|
|000057a0| 32 36 32 33 34 37 2c 2c | 77 69 6d 70 25 3a 78 25 |262347,,|wimp%:x%|
|000057b0| 3d 77 69 6d 70 25 21 34 | 2d 77 69 6d 70 25 21 32 |=wimp%!4|-wimp%!2|
|000057c0| 30 3a 79 25 3d 77 69 6d | 70 25 21 31 36 2d 77 69 |0:y%=wim|p%!16-wi|
|000057d0| 6d 70 25 21 32 34 3a 77 | 69 6d 70 25 21 34 3d 30 |mp%!24:w|imp%!4=0|
|000057e0| 3a c8 99 32 36 32 33 35 | 30 2c 2c 77 69 6d 70 25 |:..26235|0,,wimp%|
|000057f0| 3a 21 77 69 6d 70 25 3d | 77 69 6e 64 6f 77 25 3a |:!wimp%=|window%:|
|00005800| 77 69 6d 70 25 21 34 3d | 35 3a 77 69 6d 70 25 21 |wimp%!4=|5:wimp%!|
|00005810| 38 3d 78 25 2b 77 69 6d | 70 25 21 38 3a 77 69 6d |8=x%+wim|p%!8:wim|
|00005820| 70 25 21 31 32 3d 79 25 | 2b 77 69 6d 70 25 21 31 |p%!12=y%|+wimp%!1|
|00005830| 32 0d 04 7c 7b 77 69 6d | 70 25 21 31 36 3d 78 25 |2..|{wim|p%!16=x%|
|00005840| 2b 77 69 6d 70 25 21 31 | 36 3a 77 69 6d 70 25 21 |+wimp%!1|6:wimp%!|
|00005850| 32 30 3d 79 25 2b 77 69 | 6d 70 25 21 32 30 3a 77 |20=y%+wi|mp%!20:w|
|00005860| 69 6d 70 25 21 32 34 3d | 30 3a 77 69 6d 70 25 21 |imp%!24=|0:wimp%!|
|00005870| 32 38 3d 30 3a 77 69 6d | 70 25 21 33 32 3d 26 37 |28=0:wim|p%!32=&7|
|00005880| 46 46 46 46 46 46 46 3a | 77 69 6d 70 25 21 33 36 |FFFFFFF:|wimp%!36|
|00005890| 3d 26 37 46 46 46 46 46 | 46 46 3a c8 99 32 36 32 |=&7FFFFF|FF:..262|
|000058a0| 33 35 32 2c 2c 77 69 6d | 70 25 3a e1 0d 04 82 72 |352,,wim|p%:....r|
|000058b0| dd f2 57 69 6d 70 5f 50 | 6f 6c 6c 53 61 76 65 46 |..Wimp_P|ollSaveF|
|000058c0| 69 6c 65 28 77 69 6e 64 | 6f 77 25 29 3a ea 66 69 |ile(wind|ow%):.fi|
|000058d0| 6c 65 24 3a 77 69 6d 70 | 25 21 30 3d 77 69 6e 64 |le$:wimp|%!0=wind|
|000058e0| 6f 77 25 3a 77 69 6d 70 | 25 21 34 3d 31 3a c8 99 |ow%:wimp|%!4=1:..|
|000058f0| 32 36 32 33 35 30 2c 2c | 77 69 6d 70 25 3a 66 69 |262350,,|wimp%:fi|
|00005900| 6c 65 24 3d 24 28 77 69 | 6d 70 25 21 32 38 29 3a |le$=$(wi|mp%!28):|
|00005910| c8 8e a7 66 69 6c 65 24 | 2c 22 2e 22 29 ca 0d 04 |...file$|,".")...|
|00005920| 87 58 c9 30 3a 24 28 77 | 69 6d 70 25 2b 34 29 3d |.X.0:$(w|imp%+4)=|
|00005930| 22 54 6f 20 73 61 76 65 | 2c 20 64 72 61 67 20 74 |"To save|, drag t|
|00005940| 68 65 20 69 63 6f 6e 20 | 74 6f 20 61 20 64 69 72 |he icon |to a dir|
|00005950| 65 63 74 6f 72 79 20 77 | 69 6e 64 6f 77 22 3a c8 |ectory w|indow":.|
|00005960| 99 32 36 32 33 36 37 2c | 77 69 6d 70 25 2c 31 36 |.262367,|wimp%,16|
|00005970| 2c 74 61 73 6b 24 0d 04 | 8a 24 7f 3a f2 45 76 65 |,task$..|.$.:.Eve|
|00005980| 6e 74 5f 53 61 76 65 46 | 69 6c 65 28 66 69 6c 65 |nt_SaveF|ile(file|
|00005990| 24 2c 77 69 6e 64 6f 77 | 25 29 0d 04 8c 13 cb 3a |$,window|%).....:|
|000059a0| c8 99 32 36 32 33 35 36 | 2c 2d 31 3a e1 0d 04 90 |..262356|,-1:....|
|000059b0| 5b dd f2 57 69 6d 70 5f | 4d 65 6e 75 43 65 6e 74 |[..Wimp_|MenuCent|
|000059c0| 72 65 28 6d 65 6e 75 25 | 2c 69 74 65 6d 25 29 3a |re(menu%|,item%):|
|000059d0| 6d 65 6e 75 25 21 28 33 | 36 2b 28 69 74 65 6d 25 |menu%!(3|6+(item%|
|000059e0| 2d 31 29 2a 32 34 29 3d | 6d 65 6e 75 25 21 28 33 |-1)*24)=|menu%!(3|
|000059f0| 36 2b 28 69 74 65 6d 25 | 2d 31 29 2a 32 34 29 84 |6+(item%|-1)*24).|
|00005a00| 28 31 3c 3c 33 29 3a e1 | 0d 04 94 72 dd a4 47 65 |(1<<3):.|...r..Ge|
|00005a10| 74 5f 50 61 72 61 6d 65 | 74 65 72 73 3a ea 70 61 |t_Parame|ters:.pa|
|00005a20| 72 61 6d 24 2c 69 25 3a | c8 99 31 36 b8 70 61 72 |ram$,i%:|..16.par|
|00005a30| 61 6d 24 3a 69 25 3d a7 | 70 61 72 61 6d 24 2c 22 |am$:i%=.|param$,"|
|00005a40| 20 2d 71 75 69 74 20 22 | 29 3a e7 69 25 8c 70 61 | -quit "|):.i%.pa|
|00005a50| 72 61 6d 24 3d c1 70 61 | 72 61 6d 24 2c a7 70 61 |ram$=.pa|ram$,.pa|
|00005a60| 72 61 6d 24 2c 22 20 22 | 2c 69 25 2b a9 22 20 2d |ram$," "|,i%+." -|
|00005a70| 71 75 69 74 20 22 29 2b | 31 29 0d 04 99 0b 3d 70 |quit ")+|1)....=p|
|00005a80| 61 72 61 6d 24 0d 04 9b | 5c dd f2 57 69 6d 70 5f |aram$...|\..Wimp_|
|00005a90| 4d 65 6e 75 44 6f 74 74 | 65 64 4c 69 6e 65 28 6d |MenuDott|edLine(m|
|00005aa0| 65 6e 75 25 2c 69 74 65 | 6d 25 29 3a 6d 65 6e 75 |enu%,ite|m%):menu|
|00005ab0| 25 21 28 32 38 2b 28 69 | 74 65 6d 25 2d 31 29 2a |%!(28+(i|tem%-1)*|
|00005ac0| 32 34 29 3d 28 6d 65 6e | 75 25 21 28 32 38 2b 28 |24)=(men|u%!(28+(|
|00005ad0| 69 74 65 6d 25 2d 31 29 | 2a 32 34 29 29 84 32 3a |item%-1)|*24)).2:|
|00005ae0| e1 0d ff                |                         |...     |        |
+--------+-------------------------+-------------------------+--------+--------+